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ABSTRACT 



Introductory students of astrodynamics and the space environment are required to have 
a fundamental understanding for the kinematic behavior of satellite orbits. This thesis 
develops a standard library that contains the basic formulas for modeling earth orbiting 
satellites. This library is used as a basis for implementing a satellite motion simulator that 
can be used to demonstrate orbital phenomena in the classroom. 

This thesis surveys the equations and principles taught to introductory orbital 
mechanics and space systems students. The library organizes these orbital elements, 
coordinate systems and analytic formulas into a standard method for modeling earth 
orbiting satellites. The standard library is written in the C programming language and is 
designed to be highly portable between a variety of computer environments. 

The simulation draws heavily on the standards established by the library to produce a 
graphics-based orbit simulation program written for the Apple Macintosh computer. The 
simulation demonstrates the utility of the standard library functions but, because of its 
extensive use of the Macintosh user interface, is not portable to other operating systems. 
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I. INTRODUCTION 



Most students of astrodynamics, that branch of mechanics that is concerned with the 
motion of celestial bodies and often called celestial mechanics, are given a rigorous 
treatment of the physics but little appreciation for the actual kinematic behavior of a 
satellite's orbit. The reasons for this are twofold; the first is that the equations involved 
are often time dependent functions. Secondly, and perhaps more importantly, it is not an 
easy task to represent a three dimensional position in a single geometric plane such as the 
classroom blackboard. These two factors, and the requirement to perform repetitive, 
complex calculations rapidly, are enough justification for developing a standard orbit 
modeling library on a microcomputer system. 

This standard library should provide facilities to support the creation and calculation 
of orbits from simple elementary cases to more advanced modeling of actual Earth satellite 
systems. Based on this library an interactive orbital simulation can be created to give the 
student of astrodynamics an appreciation for exactly what characterizes the motion of a 
satellite in orbit around the Earth. Unfortunately, most precise orbit modeling systems are 
not presented as pedagogical tools or require special hardware that make them unavailable 
for use on microcomputers. The systems that are available for microcomputers are often 
monolithic structures that can provide the student with little insight into the particular 
components of an orbital simulation. Of particular importance to a simulation designed to 
educate the user is the ability for the student to interact with the information presented. 
This requires an integrated system capable of providing immediate feedback and easy 
modification of the parameters that define a satellite orbit. 
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The purpose of this thesis is to provide a student with an accessible resource for the 
study of satellite orbits. This is accomplished by first creating a library of useful and 
independent routines that can be used in many potential orbit modeling situations. The 
utility of these modules is subsequently demonstrated by using them to create a multiple 
view, three dimensional simulation of several satellites orbiting the Earth. To make these 
modules truly general purpose, the C programming language was chosen as the only 
language currently in widespread use that is capable of fast numeric calculations and is 
available in several different microcomputer operating systems and graphics environments. 
The C programming language has the added benefit of being able to provide a structured 
interface that allows many of the implementation details of the orbital routine library to be 
abstracted out. Such abstraction will make future enhancements or maintenance as 
painless as possible to the user programs serviced by the library. 

A. METHODOLOGY 

This thesis is organized into three main sections: a background of relevant 
astrodynamic concepts, a description of library functions, and the orbital simulation 
program. The section devoted to providing background material includes chapters that 
discuss the motion of satellites in a closed orbit and the coordinate systems that this motion 
can be presented in. By stepwise development of the computational aspects of 
astrodynamics, an appreciation for the function performed by a particular library routine as 
well as its context can be established. 

The simulation will make use of many of the library routines developed but is not 
intended to encompass the entire library. Some routines are provided for completeness 
and would be used by other programs for their own specific objectives. Finally, all 
routines included in the standard library are documented in the UNIX style (i.e., 
individually or grouped logically one per page specifying data types and return values). 
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B. ENVIRONMENT 

As stated earlier the library is designed to be as portable as possible, but the 
simulation was programmed with a specific family of machines in mind; the Apple 
Macintosh. These computers, especially the latest introduction — the Macintosh n, 
represent of the current state of the art in microcomputers. The Macintosh II is a high 
resolution color system, with a 32-bit microprocessor (Motorola 68020), arithmetic 
coprocessor (Motorola 60881) and a mature graphics-based operating system. Although 
the simulation will execute on earlier models of the Macintosh, certain operations (such as 
floating point calculations) will realize an increase in speed when performed on the 
Macintosh n. 

The software was compiled using Think Technologies' LightSpeed C compiler 
environment. This version of the C programming language provides a standard C 
implementation that allows the library to be machine portable. However, the simulation 
program is machine specific because of its extensive use of the Macintosh user interface 
including resources, event management, and drawing routines. The numeric values 
produced by the standard library are scaled and processed by the simulation to produce 
results visible on the graphics display. 
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n. BACKGROUND 



A. MOTIVATION 

Communicating information about a satellite's orbit is difficult because the solution 
requires visualizing a three dimensional coordinate system, the dynamic motion of 
satellite, the rotation of the Earth, and some appreciation for the long term changes that the 
orbit is experiencing. It would be worthwhile to attempt to isolate individual aspects of the 
orbit for study and gradually add some new characteristic to the problem. This 
representation of orbital motion can be accomplished by physical models, using motors or 
lights [Ref. I:pp.l6-18] or the physical model itself can be represented by computer 
software. There are advantages to both physical and software modeling techniques. 

There is some loss of spatial information in the software model because of the two 
dimensional nature of a computer's display screen. The viewer is restricted to the view 
angles and perspective offered by the software system and is further limited by screen 
resolution, object lighting and shading models offered. To offer more vantage points or 
increase realism in the display is taxing to the computer's central processing unit and may 
slow the model so that it cannot hold the attention of the viewer for a long period of time. 

Fortunately, reality does not need to be modeled precisely if the user is provided a 
reasonable representation for the essential aspects of the orbit. If this abstraction is 
acceptable then there exist many advantages of the software model over the hardware 
implementation. The first and foremost advantage is that the algorithms, once 
encapsulated in software, are applicable to the entire class of orbits. Thus, while the 
hardware designer is still bending wires and changing gear ratios the software 
implementation, after a few changes to variables, is already ninning. 
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Other reasons for adopting the software model include lower cost, lack of mechanical 
problems that are common to custom built hardware, the ability of software to preserve its 
current status for later viewing, and the reusability or extendability of the software for 
other projects. Although the physical model is useful in some circumstances (such as 
science exhibits) it is not the model of choice for an interactive demonstrator, comparing 
different orbits, or for observing the effects of small changes to the current orbit under 
study. 

B. PHILOSOPHY 

The software model chosen to represent the motion of the satellite is based on several 
design goals. These goals are formulated to meet the needs of the principle user, the early 
student of astrodynamics. Therefore the output produced by the model and even the 
methods used to obtain the output closely parallel the material covered during a first course 
in orbital mechanics. 

The software model provided consists of two complementary parts: the standard 
library and the simulation. The standard library is a collection of routines unified by 
common data structures that provide support for several independent functions related to 
the study of orbits. The simulation is a Macintosh-specific application that demonstrates 
the use of the standard library in the context of a major program devoted to the modeling 
of near earth satellites. 

Frequently, the methods and coordinates used by the standard library are the 
historical or classic approaches to the problem and have been superseded by more modem 
computationally intensive techniques. The standard library is based on classical 
astrodynamic techniques because the newer methods are not generally taught in 
introductory courses and the student is expected to learn by examining how the standard 
library operates. 
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The design philosophy for the standard library is carried over into the simulation 
program. Specifically the simulation is constmcted so that the program would allow: 

1 . Multiple views of the same satellite, that allow viewing the satellite in the orbital 
plane while it also traces out the ground track on a mercator projection of the Earth. 

2. The representation of multiple satellites simultaneously for the purposes of 
comparison of their individual characteristics. 

3 . The storage and retrieval of user defined orbits, as well as provide "canned" sample 
orbit parameters. 

4. The modification of both measurement systems and time scales for viewing 
purposes. 

C. DESIGN DECISIONS 

Although it would be ideal for the standard library and simulation to include code to 
handle every possible user's requirements, it is not realistic to expect that this can be done. 
From the outset, the standard library was designed to meet the minimum needs of a user 
being introduced to the computation of satellite orbits by obtaining data points for a 
selected set of coordinate systems. In keeping with the standard library 's pedagogical 
flavor, only truly universal constants are hard coded into the software. In other words, 
the user is free to experiment with planetary systems of different masses, shapes and sizes 
than the values commonly used for the Earth. 

Simplifications to botlt the orbital model and software library were necessary before 
the actual coding of the software could begin. Because of the difficulty in analytically 
modeling certain orbital perturbations and the need to establish a practical limit on the 
involvement of minor effects, only the largest perturbative effect was included. While this 
simplification restricts the accuracy of the calculations to the first few orbits it does not 
violate the philosophy behind this software system. The decision was also made to 
exclude the drawing routines used by the simulation from the standard library because a 
large percentage of these routines are machine specific. 



6 



Additionally, other computer systems may possess commercial three-dimensional 
drawing packages capable of more flexibility and speed than the methods used in the 
simulation. By acknowledging the constraints imposed on the library before the actual 
programming began, it is hoped that these design decisions will enhance the utility of the 
final product rather than allowing inconsistencies to develop between the design and the 
implementation. 
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m. EQUATIONS OF ORBITAL MOTION 



The standard library was developed based on a specific model for the motion of earth 
orbiting satellites. This model is called the two-body closed orbit problem and contains 
many of the standard simplifying assumptions used by other simulations. This chapter 
describes these assumptions and then develops the two body closed orbit equations and 
associated constants of motion. Finally, a method for modeling the most common 
perturbation to the two body orbit problem, the Earth's aspherical gravitational potential, is 
provided. 

A. THE TWO BODY CLOSED ORBIT PROBLEM 
L Assumptions 

The easiest orbital motion to visualize is that of a single small object rotating 
around a heavier body. The more massive body is called the primary and the orbiting 
object is referred to as the secondary. This model is a fair representation for the motion of 
artificial satellites around the Earth and is composed of several simplifying assumptions. 
The most important assumptions are; 

• The secondary body has zero mass, and thus has no gravitational attraction on the 
primary [Ref 2:pp. 14]. 

• Both bodies are perfectly spherical masses, and thus can be approximated as a single 
point, located at their centers [Ref 2:pp. 1 1]. 

• There are no external forces acting on the two body system and the only internal 
force present is gravitational force [Ref 2:pp.l2]. 

While these assumptions sound as though the final model is far removed from 
the "real world", in actuality the results of the model can be close to empirically observed 
values. For example the mass of the secondary body (the satellite) is often insignificant in 
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comparison with the mass of the Earth. The Space Transportation System ("space 
shuttle") Orbiter, which is a large satellite, has a mass of 75,0(X) kilograms [Ref 3:pp. 
13.6] but still represents only a small fraction (7.5 x 10“^ 5.98 xlO^^ = 1.3 x lO'^O) of 

the Earth’s total mass. For earth orbits with altitudes of less than 36,000 kilometers and 
greater than 200 kilometers most external forces are small. The most important perturbing 
force in that range of altitudes is the effect of the oblate Earth. Because the Earth is not a 
perfect sphere, the magnitude of the Earth’s gravitational potential changes as the satellite 
changes position. This phenomenon can be added to the basic model later but provides 
little additional insight into the fundamental problem of characterizing the motion of an 
earth orbiting satellite. 

2. The Four Basic Laws of Satellite Motion 

Within the framework of the simplifying assumptions there are four equations 
from which most characteristic equations and constants are derived. The first three were 
developed by Johann Kepler from observations about the manner that planetary orbits 
behaved. These relationships are often called Kepler’s Three Laws and are expressed as: 

First Law - The orbit of each planet is an ellipse with the sun at a focus. 

Second Law - The line joining the planet to the sun sweeps out equal areas in equal 
time. 

Third Law - The square of the period of a planet is proportional to the cube of its mean 
distance from the sun. [Ref 2:pp. 2] 

The fourth basic law used to model orbital behavior is Sir Isaac Newton’s law of 
universal gravitation, which states that two bodies have a mutual attractive force that is 
proportional to their mass product. This law further states that the magnitude of this force 
is inversely proportional to the square of the distance separating the objects. Obviously 
other physical laws, such as Newton’s three laws of motion, must also be considered but 
these four are of special importance when modeling orbital motion. [Ref. 2:pp. 4] 
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B . ORBITAL EQUATIONS 



1. The Equations of an Ellipse 

An ellipse is a closed curve that is one member of a family of curves called conic 
sections. A conic section is a curve that is created by slicing a plane through a hollow 
right circular cone at some angle [Ref. 3:pp. 2.1 1]. The ellipse is characterized by tracing 
a curve of constant distance from two points called foci (F and F). The distance from one 
end of the ellipse to the other through the foci is called the major axis. The axis that is at 
right angles to the major axis and passes through the center of the ellipse is called the 
minor axis. There exists another axis perpendicular to the major axis, the latus rectum, 
which passes through the focus containing the primary. The latus rectum, major and 
minor axes are often referred to by their half length distances as the semi-latus rectum, 
semi-major (a) and semi-minor (b) axes, respectively. These relationships are shown in 
Figure 1. [Ref. 3:pp. 2.13] 




Figure 1. The Ellipse 



From this figure we can establish that a^ = b^ -t- c^ and define a new quantity 
called eccentricity as e = c^a. For an ellipse the value of eccentricity can range from zero 
(a circle is a degenerate ellipse) and up to but not including one. [Ref. 3;pp. 2. 13] 
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The point at the end of the major axis nearest the primary (F) is in general called 
the periapsis (perigee). The one at the greatest distance away from the primary is called 
the apoapsis (apogee). The eccentricity, semi-major axis, radius of perigee (rp) and radius 
of apogee (r^) are related by: 

rp = a (1-e) and r^ = a (1+e). [Ref. 2:pp. 24-25] 

It is also useful to know the distance of the satellite from the primary at any point 
along its elliptical orbit. Figure 1 shows how the polar angle (v) (measured counter- 
clockwise from perigee) can be used to locate the satellite’s position along the ellipse. 
This angle determines the radial distance from the primary to the ellipse by [Ref. 4:pp. 82]: 
r = p-5-(l + e cos V ), where p = a ( 1- e^) is called the semi-parameter of a conic. 

This distance may be expresses as two Cartesian coordinates (discussed in the 
next chapter) by [Ref. 4:pp. 82]: 

X(|) = (p cos v) -i- (1 + e cos v) 

Yco = (p sin v) (1 + e cos v) 

2. Orbital Constants 

Leaving the geometric interpretation of a satellite's orbit for the moment, there 
are several constants that describe important physical properties of the satellite. These 
properties are often called constants of the motion . 

The force that the primary exerts on the orbiting object is manifested as the 
gravitational potential. For the restricted two body problem, where the mass of the 
satellite is essential zero, the universal gravitational constant (G) and the Earth's mass 
(Mearth) often combined into a single constant (|X = GMgarth = 3.986012 x 10^ 
km^/sec^) called the gravitational parameter. There is a unique gravitational parameter 
associated with every primary body. [Ref. 2:pp. 14] 
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Another means of expressing the gravitational force associated with the primary 
body is called the constant of gravitation (k). The constant of gravitation is often left as 
to avoid the requirement of obtaining the square root. This value is also local to the 
system under study and is [Ref 4:pp. 23]; 

k = V ((G Mgarth) "*■ ^arth^) » where agai^ is the Earth 'a semi-major axis. 

For elliptical orbits there are some values which are constant, regardless of the 
satellite's position. Specific mechanical energy (£), specified as energy per unit mass, is 
constant throughout the orbit of the satellite. Since total energy consists of kinetic and 
potential terms, the satellite must "trade off one form of energy for another as it chanp^.s 
position and distance. This relationship is given by [Ref. 2:pp. 16]: 
e = (v2.j-2) + (^-i-r) 

The angular momentum vector (h) is another orbital motion constant. Angular 
momentum is the cross product of the satellite's position (r) and velocity (v) vectors. 
Both of these vectors are measured with the center of the primary as their origin. The 
magnitude of the angular momentum vector is [Ref. 2:pp. 18]: 
h = r V cos y 

Figure 2 shows how the flight-path angle (y) is defined as the angle measured 
from a line perpendicular to the position vector (called the local horizontal) to the velocity 
vector. The flight path angle will vary as the satellite orbits the Earth because r and v are 
also changing. One method of computing the magnitude of angular momentum is to select 
the distance and velocity at either perigee or apogee. The flight path angle at these 
positions is the same as the local horizontal (cos 0® = 1) and: 

^perigee '^perigee = ^apogee ''apogee [Ref. 2:pp. 18] 
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Position (r) and Velocity (v) Vectors at Two Selected Locations 

3. Relationships between the Constants of the Motion and Geometry 

By knowing some of the physical interpretations of the orbit and the geometric 
properties of an ellipse, it is possible to define several important new equations. Each of 
these relationships can, in turn, produce other ways of representing information about 
some special satellite orbits, such as circular orbits and escape velocities. 

One important attribute of a satellite's orbit is the period (P) or time that the 
satellite takes to make one complete revolution around its primary. Earlier it was stated (in 
Kepler's Second Law) that the orbits of two satellites around the same primary were 
related by their periods and their mean distances from the primary. Because of this 
relationship it is possible to derive an equation that calculates the period of any satellite 
solely in terms of its semi-major axis (a) and the characteristics of the primary body (p) it 
is orbiting. This equation is [Ref. 2:pp. 33]: 

P = 2 7t a^-^-i- V|i 

The addition of a definition for a new constant called the mean motion (n = Vp. 
a^-5) allows a more compact representation of the period as [Ref 2:pp. 185]: 

P = 2 71 / n 
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A measurement that is related to period is the number of revolutions that the 
satellite makes around the Earth per day. The number of revolutions per day is simply 
obtained by dividing the length of the day by the period of the satellite. Unless the orbit is 
exactly circular, the satellite's speed or magnitude of velocity (v) is not constant as the 
satellite moves around the Earth. A satellite will move at a greater velocity the closer it is 
to the Earth and will move slower the further that it moves away from the Earth. It is still 
possible to calculate the satellite's speed (v) at any position (r) along the orbit (even if it is 
not a perfect circle) by using relationships similar to those used to derive a formula for the 
period. This relationship is called the vis-viva law or energy integral and is [Ref. 4:pp. 
344]: 

v2 = ^i((2^r)-(l^a)) 

The escape velocity is the amount of energy necessary to cause the satellite's 
kinetic energv to overcome the gravitational attraction of the primary. By allowing the size 
of the orbit to become infinite (i.e., a — > <») we can also obtain an equation for calculating 
a satellite's escape velocity. While this quantity is not directly related to the closed orbit 
problem, it does compute how much additional velocity - v) would be required to 
launch a deep space probe from a given position (r) along the orbit. The equation for the 
total magnitude of velocity required to escape the Eanh's gravitational field is [Ref. 2:pp. 
35]: 

^escape ~ (M- (2 r)) 

4. Earth Coverage and Line of Sight Distance to the Horizon 

The operating altitude of a satellite above the Earth's surface is an important 
consideration when choosing the satellite's orbit. Most satellites either observe the 
surface of the Earth directly or have signal strength and area coverage requirements for 
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communication with ground stations. More of the Earth's surface will be visible the 
higher a satellite is placed in orbit. Conversely, the level of detail or signal strength will 
decrease as the satellite is moved away from the Earth. 

The farthest position on the surface of the Earth that is still visible to the satellite 
is called the line of sight distance to the horizon. The Earth's atmosphere may decrease or 
attenuate the signal below measurable levels before the satellite is below the horizon. 
Here, an angle above the horizon (y) is specified above which the signal will remain strong 
enough for detection. The line of sight distance formula can be calculated by use of the 
Law of Sines and the relationships shown in Figure 3. 




Another important orbital radius (r) selection criterion is the amount of the 
Earth's surface a satellite is capable of observing. The distance that a satellite can view 
from one horizon to another ( normally taken at right angles to the motion of the satellite ) 
is called the geometric swath width (GSW). This distance is an approximation because it 
assumes that the Earth is a smooth sphere and does not consider any sensor view angle 
restrictions that may exist. The equation for geometric swath width is [Ref. 5:pp. 40]: 
GSW = 2 tearth cos'l ( ^ r ) 
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A satellite in general is moving relative to a given location on the Eanh's surface. 
The geometric swath width will form a path ("swath") of coverage over the Earth's surface 
that describes the satellite's useful coverage or field of view. 

C. TIME 

Throughout the discussion so far the measurement of specific values for a satellite has 
been taken at specific positions along the satellite's orbit. Therefore the notion of when 
the particular measurement was taken has not yet been introduced. Adding time as an 
additional coordinate element provides a tool for determining the satellite's position at a 
time other than when the measurement was taken. 

Local time changes with an observer's longitude on the Earth's surface so there is a 
necessity for an absolute time system and an easy means to convert to and from this time 
scale. The most common units for measuring time are hours, minutes and seconds. 
However, because of the definition of a day as one rotation of the Earth, it is also possible 
to consider time as an angular measure of degrees or radians [Ref 4:pp. 235]. This 
relationship allows an easy conversion to and from location (longitude) and local time. 

Unfortunately, the concept of time is also clouded slightly because a day is most 
commonly measured by the direction of the sun from an observer but a day is more 
correctly (for the purposes of orbits) measured by the position of the stars. The difference 
arises because as the Earth rotates counter-clockwise around its axis it is also orbiting 
around the sun The solar day is about 3 minutes 57 seconds shorter than the sidereal day, 
which is measured relative to the stars. [Ref. 2:pp.l01] 

1. Solar Time 

The solar day begins at midnight, which is when the sun is exactly opposite its 
noon (directly overhead) position. However, the solar day is not constant because the tilt 
of the Earth's equatorial plane and elliptical shape of the Earth's orbit cause some slight 
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variations in the length of each day of the year. Therefore an average measure, called the 
mean solar day was estabUshed as being equivalent to 1.0027379093 days of sidereal time 
[Ref. 2:pp. 101]. Two commonly used time systems are defined by using different 
reference points and mean solar time: Standard time and Universal time. 

Standard (or local) time is the time that is measured by an observer at the 
observer's longitude on the Earth's surface. The Eanh is divided into 24 time zones, 
spaced 15° apart, that are each equivalent to one hour of solar time. Local time zones are 
the most common form of time keeping and keeps the hour of the day roughly matching 
the position of the sun (at a specific latitude) over the Earth's surface. 

The concept of Universal (or Zulu or Greenwich mean) time is the measuring of 
time from one specific meridian (the Greenwich meridian, defined to be 0° Longitude), 
regardless of an observer's location. This allows a common system of units for 
communicating the measurement of time without having to consider the effect of local time 
zones. To convert from Local time to Universal time (UT) all that must be done is add to 
the Local time the number of time zones (hours) that the local meridian is to the west of the 
Greenwich meridian. For example, at 1:18 P.M. in Monterey, California (approximately 
122° West = 122° -j- 15° = 8 whole time zones ), the time is 1:18 + 8 hrs or 9:18 P.M. 
Universal time. Time is normally stated in standard time (i.e., without daylight savings 
time) and by 24 hour clock, so 9:18 PM UT is expressed as 21:18 hours UT. [Ref 2:pp. 
103] 



2. Sidereal Time 

Sidereal time is the time reference used for calculating the orbit of a satellite 
because this time system is the natural system for determining the motion of the satellite. 
The sidereal day, by definition, begins when the Greenwich meridian is aligned with a 
fixed direction called the vernal equinox. Vernal Equinox is the point where the sun 
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crosses the celestial equator from south to north [Ref. 4:pp. 8] To convert from solar time 
to sidereal time, the solar time must first be converted into Universal time and then 
adjusted to determine sidereal time. This adjustment is a physical characteristic of the 
Earth and is measured by observatories and compiled into the American Ephemeris and 
Nautical Almanac [Ref 4:pp. 235]. 

Once again there exists the concepts of universal (Greenwich Sidereal) and 
position dependent (Local Sidereal) time. The Greenwich Sidereal time (9g) is the value 
that is measured and tabulated in almanacs for use in converting from solar to sidereal time 
cvstems. Because the measurement of sidereal time is based on the position of the stars 
from a specific location on the Earth's surface, Local Sidereal time is often expressed as an 
angular measure (Xg), called the Local Hour Angle (LHA). Local sidereal time may be 
computed by; 

6 = 0g + X,£ 

If Greenwich Sidereal time is not known, but Universal Time (solar time) is 
available, then a good approximation for local sidereal time is still obtainable. This is 
accomplished by calculating the time difference between a known value (0gO> found in the 
Nautical Alma.tac) and the current time according to the following formula: 

0 = 0go + p' (t - tQ) + X,£ , where p' is the angular rotation rate of the Earth, t - tQ is 
the time difference from the specified time (t) to a known Greenwich Sidereal time (tQ). 
The values for 0go are generally compiled when tQ is 0000 hrs UT. [Ref. 2:pp. 100] 

D. CANONICAL UNITS 

A topic that is closely related to the physical characteristics of a satellite and its 
primary is the use of system specific measurement units called characteristic or canonical 
units. Canonical means that the fundamental measuring unit for everything in the orbit 
system is based on the primary's radius and a special orbit called the reference orbit. 
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This conversion from more commonly used units, such as the metric system, to 
canonical units is really just a mathematical convenience and does not change the basic 
relationships in any way. Canonical units simplify many of the basic formulas and are 
used by many complex orbital models to increase computational efficiency. The standard 
library is not optimized for speed but is intended to demonstrate the fundamental concepts 
behind the computation of orbits. Therefore all input and output is specified in more 
familiar metric units. Additionally, routines for conversion between canonical and metric 
units is provided for general use in the library. 

Distance units are based on the mean equatorial radius of the Earth (tgoj-th = 6378.145 
km); thus a satellite at an altitude of 750 km is at (750 + fearth = 1-117589 Earth 

radii or distance units from the center of the Earth. Time units are specified by using the 
speed of a hypothetical circular orbit that is located at the Earth's surface (r = rg^pth). If 
the speed of the orbit is defined such that the satellite's period is exactly 2n, then the time 
unit (t, called a herg ) is equivalent to x = rg^rth^'^'*' = 806.81 18744 seconds. As a 

consequence of the above relationships, the canonical speed unit (distance -5- time) is 
7.90536828 km/sec in metric units. [Ref 2:pp. 40-43] 

E. CORRECTION FOR ASPHERICAL GRAVITATIONAL POTENTIAL 
As was initially stated, the two body closed orbit problem simplified the modeling of 
orbits at the expense of a more exact representation of the real world. There are some 
significant aspects of orbital motion that this simple model cannot describe. These 
deviations are often called perturbations, because they cause the satellite to follow a path 
that is different from the one expected by the simple two body model. [Ref 2:pp. 385] 
Some examples of perturbations are radiation pressure from the sun, changes in 
gravitational influence, and atmospheric drag. One possible form of a changing 
gravitational influence is the presence of other astronomical bodies. Correction for this 
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perturbation is not done by the standard library because of the small magnitude of changes 
involved (especially for low earth orbits) and the complications that would have to be 
added to the introductory astrodynamics presented in the standard library. To properly 
account for the force of atmospheric drag, the model must calculate the density of the 
atmosphere at high altitudes. The standard library and most predictive models of satellite 
motion avoid the difficulty in modeling the upper reaches of the atmosphere by ignoring 
the lowest orbital altitude regime and only model satellite orbits at altitudes greater than 
850 kilometers. [Ref. 6:pp. 87] 

Unless the satellite is in an extremely low orbit and experiencing atmospheric drag, 
the largest perturbative force results from the Earth being slightly more massive around the 
equator. Because the mass of the Earth is distributed non-uniformly, there are slight 
deviations in the gravitational attraction of the Earth at different locations. This aspherical 
gravitational potential results in two distinct changes to a satellites orbit: a gradual rotation 
of the orbital plane (regression) and a rotation in the orientation of the ellipse [Ref. 2:pp. 
156-159]. These effects are discernible over several orbits, therefore it is important that 
the library provide a mechanism to calculate this effect. The mass distribution of the Earth 
is irregular in every direction, but is most affected by latitude. The model commonly 
chosen to represent the Earth is axially symmetric with different variations in mass 
distributions for each hemisphere. The model's mathematical foundation is an infinite 
series representing the Earth's gravitational potential [Ref. 4:pp. 174]: 

U = (k^ Mgarth r ) [ 1 * ^k=2 ^k ^ 1 where •••. ate the 

coefficients of the Earth's gravitational potential called the zonal harmonics, and P2, P3, 
..., are Legendre polynomials. 

Although this equation is not used directly in the standard model, its formulation is 
presented because this representation is the basis for the development of the equations for 
two body perturbed motion. 
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IV. CELESTIAL COORDINATE SYSTEMS AND TRANSFORMATIONS 



There are many possible coordinate systems that can be used to describe the position 
and motion of an earth orbiting satellite. All coordinate systems used by this library are 
orthogonal, that is each of the three unit vectors are mutually perpendicular, and 
additionally the unit vectors also follow the "right hand rule" convention in their ordering. 
The three most common fundamental planes for these systems are the orbit itself, the 
Earth's equatorial plane and an observer's (on the Earth's surface) horizon. The 
fundamental plane always establishes one vector normal to the plane but there is still much 
freedom of choice for the two remaining in-plane vectors. The geocentric-equatorial, right 
ascension-declination, geographic, topocentric, and perifocal coordinate systems are 
directly supported by the standard library. Many of the other possible coordinate systems 
can be derived easily from one of these five if they are required. 

An important coordinate system property is whether the coordinate system is inertial, 
quasi-inertial, or not inertial at all. Inertial systems can be defined as having axes that are 
not in accelerated or rotational motion [Ref. 2:pp. 9]. The study of mechanics is greatly 
simplified in inertial or quasi-inertial (approximations to inertial) coordinate systems 
because the terms resulting from rotational motion do not have to be considered. 

A. GEOCENTRIC-EQUATORIAL (IJK) COORDINATE SYSTEM 

The geocentric-equatorial coordinate system is probably the most obvious one; it is 
simply the two dimensional rectangular coordinate system extended into three dimensions. 
Figure 4 shows how this coordinate system uses the equator of the Earth as its 
fundamental plane (with the z-axis normal to the plane and pointing towards the celestial 
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north pole) and the x-axis points in the direction of vernal equinox. The unit vectors I, J, 
K are often used as the shorthand notation IJK for referring to a satellite's position 
(x,y,z) in the geocentric-equatorial coordinate system. [Ref. 2:pp. 54-57] 




Figure 4. Geocentric-Equatorial Coordinate System 

B. RIGHT ASCENSION-DECLINATION (R.A.-DECL) COORDINATE 
SYSTEM 

The right ascension-declination coordinate system is most commonly used by 
astronomers to catalog the positions of stars and other heavenly bodies. In this system the 
position of an object is obtained by projecting the pointing vector for the object against a 
sphere of infinite radius (the celestial sphere) and determining two angles called right 
ascension (a) and declination (5). These angles are measured positive upward from the 
equatorial plane and counter-clockwise positive from the vernal equinox. The origin of the 
coordinate system can be chosen as the Earth's center, the observer's position, or any 
other arbitrary point because the celestial sphere is infinitely large Ref. 2:pp. 56-57]. The 
distance from the object to the chosen origin is called the radial distance (r) and is an 
essential element when translating into other coordinate systems using different origins. 
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The right ascension-declination coordinate system shares a common principle pointing 
direction (i.e., in the direction of vernal equinox) with the geocentric-equatorial coordinate 
system as is shown in Figure 5. 




Figure 5. Right Ascension-Dechnation Coordinate System 

C. GEOGRAPHIC (<))Xh) COORDINATE SYSTEM 

The geographic coordinate system uses the equator of the Earth as its fundamental 
plane and the Greenwich (Prime) meridian as the direction of its principle pointing vector. 
This is not an inertial system as the Greenwich meridian rotates through 360 degrees every 
solar day [Ref. 4:pp. 96-97]. The coordinates in the geographic system are longitude (east 
or west), latitude (geocentric or geodetic), and altitude above the Earth's surface. It is a 
matter of preference whether longitude is specified between -180 and 180 degrees when 
measuring longitude from east to west (such as is used in the American Ephemeris and 
Nautical Almanac [Ref. 4:pp. 97]) or if an east/west longitude convention is used 
exclusively and longitude is allowed to assume values from 0 to 360 degrees. 
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The standard library adopts the common convention of using east longitude (Xg) 
exclusively. Thus all longitudes are measured counterclockwise from the normal vector of 
the fundamental plane (i.e., the equatorial plane). 

Latitude measurements also suffer from complications because the Earth is not a 
perfect sphere. Geocentric latitude (([)g) is the angle measured from the equatorial plane to 
the position vector of the object being referenced (generally an observer's position on the 
Earth's surface) [Ref. 4:pp. 97]. This angle can be considered to be referenced from a 
perfectly spherical Earth and is the latitude most easily obtained from spherical 
trigonometry. Geodetic latitude ((J>) is measured from the equatorial plane to the normal 
vector at the observers position on a "reference ellipsoid". The reference ellipsoid is an 
approximate model of the Earth's oblateness based on an ellipse rotated around the Earth's 
axis. Geodetic latitude is the commonly referred to latitude found on most maps and 
charts of the world. [Ref. 2:pp. 94] 

Astronomical latitude, another type of latitude sometimes used, is an angle measured 
between the direction of the local gravitational field and the equator. Since astronomical 
latitude deviates only slightly from the reference ellipsoid [Ref. 2:pp. 94] it is not used by 
the standard library. 

Because altitude is the object's distance above the reference ellipsoid, the altitude 
specified in this coordinate system is dependent on which form of latitude is being used. 
If geocentric latitude (<|)g) is specified then the altitude (hg) is measured above a reference 
sphere of constant radius (Re = 6371.086 km) [Ref. 6;pp. 24]. For geodetic latitude (({)) 
the altitude (h) is the difference between the object's radial position and the ellipsoid radius 
at the specified latitude (see Figure 6). To further refine altitude by taking the irregularity 
of the Earth's surface into account (e.g., mountains and valleys) either the observer must 
have knowledge of the Earth's topography at that latitude and longitude or a complicated 
model of the Earth's surface must be developed. The standard model simply provides 
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altitude measured from the standard ellipsoid (or sphere); it is the responsibility of the 
using program to further refine that value. 



Figure 6. Geographic Coordinate System 

D. TOPOCENTRIC (SEZ) COORDINATE SYSTEM 

Another coordinate system that is inherently non-inertial is the topocentric coordinate 
system. The topocentric coordinate system uses the observer's position as its origin, and 
the observer’s horizon as its fundamental plane. Figure 7 shows the Zjj vector as the 
normal vector pointing upwards from the surface of the Earth and the two in-plane vectors 
(Xh, Yh) pointing positive towards the south and east, respectively. The coordinate 
axes, SEZ (south, east and up), are generally used as shonhand notation for the 
topocentric coordinate system. [Ref. 2:pp. 84] 

This coordinate system is extremely useful because most methods of determining 
satellite orbits rely on radar or visual sightings from observer stations that are on the 
Earth’s surface. Position information is provided as range (p) and two angles which 
specify the direction from which the range information is obtained. These angles are 
azimuth (A 2 , measured clockwise from -S) and elevation (E|, measured from the 
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horizontal plane). Velocity can be specified as the time rate of change of each of the 
position elements (p’, A^', and Ej')- 




E. PERIFOCAL (PQW) COORDINATE SYSTEM 

The perifocal coordinate system is perhaps the most familiar coordinate system to the 
introductory student of astrodynamics. The fundamental plane is the orbit itself, with the 
principle direction (P) pointing towards the point of the satellite's closest approach to the 
Earth (periapsis). The center of the Earth is the perifocal coordinate system's origin and is 
also one foci of the ellipse. The other in-plane vector (Q) is established at a right angle (in 
the direction of orbital motion) to the principle vector. The remaining vector is chosen so 
that these vectors will form a right-handed orthogonal coordinate system, Figure 8. 
Because of the commonly used designation for the perifocal coordinate axes, this system 
of coordinates is often referred to as the PQW coordinate system. The position and 
velocity elements in this coordinate system are denoted by (X(^, y<j 3 , ) and {X(^, y^^', 

z^'), respectively. This coordinate system allows the two-body motion of a satellite to 
remain within the fundamental plane (the W components are exactly zero). This is 
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valuable for simplifying the amount of calculations necessary for the orbit prediction 
problem. It is worth noting that periapsis is not defined for a circular orbit (e = 0) and 
complicates the use of this coordinate system for orbits with low eccentricities. [Ref 4:pp. 
115] 




Direction of 
Rotation 



Figure 8. Perifocal Coordinate System 



F. KEPLERIAN ELEMENTS 

A set of orbital elements with great historical interest are the Keplerian or Classical 
Elements. These elements are often used to define the relationship between the orbital and 
the equatorial planes and are defined as the semi-major axis (a), eccentricity (e), inclination 
(i), longitude of the ascending node (Hq), argument of perigee (coq), and time of periapsis 
passage (T) [Ref. 2:pp. 58]. The concepts of semi-major axis, eccentricity and inclination 
have been already introduced, and with the use of two new angles (longitude of the 
ascending node and argument of perigee) will define the rotation of the orbital plane from 
the equatorial plane. The longitude of the ascending node is the angle, measured 
counter-clockwise, from vernal equinox to the orbit's northward crossing of the equator. 
The vector from the center of the Earth to this point is called the line of nodes. The 
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argument of perigee, an angle measured counter-clockwise from the line of nodes to 
periapsis, is the final angle necessary to determine the orbital plane. These relationships 
are illustrated in Figture 9. 



The sixth element (time of periapsis passage) determines the location of the satellite 
along the orbit. The reason that subscripts exist on the symbols for argument of perigee 
and longitude of the ascending node is because they are more changeable with respect to 
time than the remaining elements. The other five Keplerian elements (or any other orbital 
element set) are defined at a time called epoch. The time of periapsis passage can be 
expressed as the instant in time that the satellite is at perigee [Ref. 2:pp. 60]. If the epoch 
time does not correspond with the time of periapsis passage, then two separate values 
(anomaly and arbitrary epoch time-tQ) would be required to define the time element [Ref. 
6:pp. 58]. Anomaly is an angle measured in one of three standard ways that defines the 
location of the orbiting object from the perigee position. 




Direction of Line of 

Rotation Nodes 



Figure 9. Keplerian Elements 
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There are three common measurements of anomaly called the true anomaly, eccentric 
anomaly and mean anomaly. The true anomaly (vq) has a direct geometric representation 
and is simply the polar angle that is measured from perigee to the object's position. The 
eccentric anomaly is determined by projecting the orbital path of the satellite against an 
auxiliary circle with a radius equal to the semi-major axis of the orbit This relationship is 
illustrated in Figure 10. For circular orbits the auxiliary circle is the real orbital path and 
the eccentric anomaly is identical to the true anomaly. 



A satelhte does not travel at uniform speed in an elliptical orbit, therefore the rate of 
change of the tme anomaly will also vary. The mean anomaly (Mq) measures the object's 
position from perigee along a hypothetical orbit of uniform average speed (called the mean 
motion constant; n). Mean anomaly has no geometric interpretation but is defined in 
general (for any arbitrary time, t) by the equation: 




auxiliary circle 



Figure 10. True Anomaly ( v ) and Eccentric Anomaly (E) Relationship 



M = n (t - T) = Mq + n (t - Iq) = E - e sin E 
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The last equivalence is the common form of expressing Kepler’s Equation or the 
so-called Kepler problem. Because this equation relates position (E) and time (Mq, tQ, 
and t) it provides a formula for predicting the position of a satellite at any time. This 
formula requires finding a solution for eccentric anomaly by using these other (known) 
values. Since E is expressed by a transcendental function and a polynomial of degree one, 
a closed form solution to this equation does not exist. The search for an efficient method 
to solve this equation is the reason that this formula has come to be known as the Kepler 
problem [Ref. 2:pp. 220]. The analytical and numerical solutions to the Kepler problem 
are useful for predicting the position of a satellite at a time other than epoch, and several 
solutions will be discussed in the next chapter. 

G. TRANSFORMATION FORMULAS 

Several formulas for transforming position from one coordinate system to another are 
provided based on the coordinate systems defined in this chapter. The first few 
transformations make use of Keplerian elements as well as system coordinates, but the 
remaining transformations are defined solely by individual coordinate systems. If an 
explicit transformation is not listed, then it is generally possible to obtain the desired 
coordinate system via one or more intermediate transformations. As a source of additional 
transformations, an appendix to Escobal provides a compilation of no less than thirty-six 
basic coordinate transformations [Ref. 7:pp. 393-422]. 

1 . Keplerian to PQW 

Using true anomaly (v) or eccentric anomaly (E) the three PQW position 
elements are [Ref 2:pp.45-46]: 

X(0 = r cos V = a (cos E - e) 
yo) = r sin V = a (sin E V(1 - e^) ) 

Zq) = 0 
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2 . PQW and Keplerian to IJK 

Using argument of perigee (coq), longitude of the ascending node (Qq) 
inclination (i) the three UK position elements are [Ref 6:pp. 62-64]: 

Use transformation 1 to obtain Xq and yQ. 

X = Xq (cos coq cos Qq - sin coq sin Qq cos i) 

-I- yqj (-sin COQ cos Qq * cos coq sin Qq cos i) 

y ~ ^co (cos COQ sin Qq -i- sin coq cos ^2q cos i) 

+ y<jO COQ sin Qq -i- cos coq cos Qq cos i) 

z = Xq 3 (sin COQ sin i) -i- y(j) (cos coq sin i) 



3 . IJK and Keplerian to PQW (inverse of transformation 2) 

Using argument of perigee (coq ), longitude of the ascending node (Qq) and 
inclination (i) the three PQW position elements are [Ref 7;pp. 417-418]: 

Xq 3 = X (cos COQ cos Qq - sin coq sin Qq cos i) 

4- y (cos COQ sin Qq + sin coq cos Qq cos i 
-I- z (sin COQ sin i) 

Yoj = X (- sin COQ cos Qq - cos coq sin Qq cos i) 

-I- y (- sin COQ sin Qq -i- cos coq cos Qq cos i) 

+ z (cos COQ sin i) 

Z(^ = x (sin Qq sin i) + y (- cos Qq sin i) ) -f- z (cos i) 



4 . SEZ to IJK 

Using geodetic latitude (<])g), the Earth's equatorial radius (a^ = 6378.145 km), 
the Earth's polar radius (bg = 6356.785 km) and the reference ellipsoid's eccentricity (eg = 
0.08182) the three UK position elements are [Ref 2:pp. 85-101]: 

The topocentric position vector p is obtained first by p=psS-f-p£E-f-p 2 Z 
where: 

PS = - p cos El cos 
PE = p cos El sin A 2 
PZ = p sin El 
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Now, by making use of geodetic latitude ( (|)ct) and defining local sidereal dme (0) as 
0 = 0CT + (0CT is the angle between I ancfthe Greenwich meridian at epoch and ?le 
is the east longifude of the observer) we find: 

X = PS (sin (})g cos 0) + pg (- sin 0) + p 2 (cos cos 0) 
y = PS (sin (J)a sin 0) + pE (cos 0) + P2 (cos (j)a^in 0) 
z = PS (- cos Ig) + pz (sin (})g) 

The observer position (or station coordinates) in IJK coordinates is: 

Xj- = I (ag / (1 - sin^ <j)„ )i/2) + ^ | cos (J)<t 

Zj- = I ((ap (1 - ep^)) / (1 - ep^ sin^ ([)£, )i/2) | (|)^ 

xs = Xj. (cos 0) 
yS = Xr (sin 0) 
zs =Zr 



5 , Right Ascension-Declination to IJK 

Using spherical trigonometry, the three UK position elements can be obtained 
by [Ref4:pp. 105]: 



X = r cos 5 cos a 
y = r cos 5 sin a 
z = r sin 5 



6. IJK to Right Ascension-Declination (inverse of transformation 5) 

Using spherical trigonometry, the three Right Ascension-Declination 

position elements can be obtained by [Ref 7:pp. 397-398]: 

r = (x- + y^ + z-)^/2 
a = tan‘l(y/x) where 0° < a < 360° 

5 = tan*^(z / (x2+y2)i/2 ) where -90° < 5 < 90° 



7. IJK to Geographic (c|)A,h) 

By computing the displacement effect of the Earth’s rotation, the three 
Geographic position elements can be derived from [Ref 6:pp. 77-78]: 

p = PO + p' ( t - tg) where tp is the time when the Greenyvich meridian is aligned with 
the I axis ("sidereal epoch") and p'=7. 2921 15856 x 10' rad/sec is the Earth's rotation 
rate. (o° < p < 360°) 
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dearth = ^ (cos p) + y (sin p) 
yearth = x (- sin p) + y (cos p) 
dearth = ^ 

- ^earth^ yearth^ ^arth^ 

(]) = sin-l (zearth/r) 

%. - tan'^ (yearth / dearth) 

h = r - Tgarth > where rgarth mean radius of the Earth 



To convert from geocentric latitude/altitude to geodetic latitude/altitude [Ref. 6:pp. 27]; 
(l)g = tan- 1 [ tan (t) -!• (1-eearth^) 1 

her = r - reaj.th(({)g) , where rgarth the radius of the ellipsoid representing the Earth 
as a function of mtitude. 



8 . Geographic to IJK (inverse of transformation 7) 

By computing the displacement effect of the Earth’s rotation, the three IJK 
position elements can be derived from [Ref 7;pp. 399-400]: 

If the geographic coordinates are given with respect to geodetic latitude (4>g, hg,A.) they 
must be converted into geocentric latitude by [Ref 6;pp.27]: 

4) = tan"l [ tan <{)g (1-egaith^) ] > "90° < (|) < 90° 

rearth^ = (^arth? [1- (2f - f^) ] ) / ( 1- (2f - f2) cos2<|)g ) 

r = ( rpaith^ + ha-^ + 2 rearrh her cos ( 6 - <bg) , where rgarth is the oblate Earth radius at 

latirudeX =>"d ? is the S^niig of the slfth (f = 1 - •}( 1 .ieaith^) )• 

0 = 0g + 0’(t - to) - (360° -Xe), 0° < X < 360° 

A(t)g = sin" i (( hg/r) sin (({) - (])g)) , where A<l)g is the difference between geocentric 
latitude and declination. 

S — (|)g "1" A(J)g 

X = r (cos 6 cos 0) 
y = r (cos 5 sin 0) 
z = r (sin 5) 
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V. ORBIT PREDICTION 



A. STATEMENT OF THE PROBLEM 

The problem of determining the position of a satellite at an arbitrary time (t) from an 
initial set of coordinates (measured at epoch, T) has been studied since the work of Kepler 
[Ref. 2:pp. 2 12-222]. The classical solution is tied closely to a traditional set of 
coordinates; the so called Classic or Keplerian Elements. Consequently, the procedure 
used to obtain the satellite's time dependent position (as outlined below) is stated using 
Keplerian Elements. To simplify calculation of the new position, it will initially be defined 
in the perifocal (PQW) coordinate system. From the PQW coordinate system a simple 
series of transformations can be made to obtain the satellite's position in whatever 
coordinate system is desired. The orbit prediction problem may be summarized as; 

Given; The satellite position elements a, e, i, Qq, coq, Mq epoch (to). 

Find; The position of the satellite at an arbitrary time (t). 

B. OUTLINE OF THE SOLUTION 

There are four distinct steps required to obtain a new position for the satellite. These 
steps are; 

1 . Compute the Mean Anomaly (M) at time t 

2. Determine the Eccentric Anomaly from the Mean Anomaly (i.e., use a solution to 
the Kepler Problem ) 

3. Obtain the position vector in the Perifocal (PQW) Coordinate System 

4. Transform the result into the coordinate system of choice (see section on orbital 
transformations) 
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1. Compute the Mean Anomaly (M) at Time t 

The shape of the orbit would remain constant if the satellite was a massless point 
and subject only to gravity from a point source. If this were the case, then by knowing the 
change in time from the first position, it is possible (with some difficulty) to locate the 
satellite along this perfect ellipse. This simplification is called the two body problem and 
can often result in a sufficiently accurate computation of the satellite's position. The time 
dependent nature of this relationship is represented by the time that the satellite most 
recently passed perigee and the mean anomaly. The mean anomaly (M) may be 
represented as [Ref. 2:pp. 185]: 

M = n (t - T) , where T = to - (Mq n) is the time of perifocal passage and n = V(fi a^) 
is the mean motion constant. 

The most significant perturbation to add to the basic two body problem model is 
the aspherical gravitational potential of the Earth. The Earth's gravity is not constant 
because the planet's mass is not distributed uniformly. Thus, the force of gravitational 
attraction will vary periodically as the satellite makes a single revolution around the Earth. 
This type of perturbation is called periodic because the satellite deviates from its predicted 
orbit, yet returns to nearly the same location that it started from. Periodic perturbations 
typically cause no loss of the total energy for the satellite and do not cause much change to 
the values of a, e, and i. The values for Q, co, and M, however, are more easily subject to 
change by this type of perturbing force. [Ref. 6:pp. 87-89] 

In earlier discussions, the analytic solution for the aspherical nature of the 
Earth’s gravitational potential was expressed as an infinite series. Changes to each orbital 
element are calculated by multiplying their rate of change by the time difference from initial 
measurement (t - tQ). 
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New values of the mean anomaly, longitude of the ascending node and argument 

of perigee are found by [Ref 6:pp. 94]: 

M = Mq+ M'(t-to) 

Q = ^0 + Q' (t - to) 

CO = coq + W (t - to) , where tQ is an arbitrary epoch time and t is the instant in time 
under consideration. For the simple two body problem M' = n and = co' = 0. 

The time rate of change for each of these variables is derived from a Taylor series 

expansion that uses as many terms as needed to obtain the desired accuracy and truncates 

the remaining terms. The first approximation to the change in M, Q, and co (due to the 

Earth's aspherical gravitational potential) is provided in Figure 1 1 [Ref. 6:pp. 94 - 95]. 




These small changes are a function of the orbital inclination, J 2 the 2nd harmonic 
coefficient (an emperically obtained constant), and p is the semi-parameter of an ellipse p = 
a (1 - e^). [Ref. 6:pp. 50] 

The expansion to higher than first order effects is computational much more 
difficult than this first approximation. This complexity results from the increased number 
of terms that result from the expansion to the fourth harmonic coefficient. The use of 
second or higher order expansions will increase accuracy, but the effects of the aspherical 
gravitational potential may be appreciated by simply using first order terms. 
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2 . Determine the Eccentric Anomaly from the Mean Anomaly 
Because the solution to the Kepler problem (M = E - e sin E) is transcendental, 

an iterative solution based on the Newton-Raphson method of root finding is used. The 
root in question is a solution to the equation: M - E + e sin E = 0. This algorithm takes the 
form of [Ref. 2:pp. 222]: 

(1) Mn = En - e sin E^ 

(2) En+i = Efi + (M - Mfi) -f- (1 - e cos E^) , where this equation is applied initially to 
Eq = M and then reapplied until the difference between M and becomes small 
enough to be ignored. 

(3) If true anomaly (v) is also desired, it may be calculated from [Ref. 2:pp. 187]: 

V = cos‘1 [ (e - cos E) -i- (e cos E - 1) ] 

3 . Obtain the Position Vector in the Perifocal Coordinate System 

The perifocal coordinate system (PQW) uses the orbit as its fundamental plane 
and therefore requires only two coordinates to fully specify the satellite's position. The Zqj 
coordinate is by definition always equal to zero. Based on coordinate transformation 1 
and the computed values of M, Q, and to at time t, the position of the satellite can be 
calculated as: 

= r cos V = a (cos E - e) 
yo) = r sin V = a (sin E V(1 - e^) ) 

Z(o = 0 
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4. Transform the Result into the Coordinate System of Choice 

Because the location of a satellite might be desired in coordinates other than the 
PQW, the section that discusses coordinate system provides methods to transform PQVV 
coordinates into other common coordinate systems. It is exactly by this method that the 
simulation, using the standard library, determines new position vectors for every 
coordinate system other than PQVV. 



38 



VI. COMMON ORBIT CLASSIFICATIONS 



With minimal reference to the physical laws governing the motion of satellites, it is 
still easy to describe many of the fundamental characteristics of orbits. The most obvious 
attribute of a satellite is that it is constantly in motion. This motion is responsible for the 
satellite's track in the night sky and for providing the capability to match the rotation of the 
Earth. This second relationship forms the principle for global communications from 
geostationary satellites that appear to "hang" in one position over the Earth's equator. 

The question then arises concerning the determination of relative position, area 
coverage or Earth locations visited for each class of satellite orbits. It is possible to create 
a partial, qualitative list of orbits that exhibit various interesting phenomena. This list is 
provided without an excessively detailed explanation of the parameters (found in earlier 
chapters) which are required to fully describe each orbit type. 

A. ORBIT CLASSIFICATION BY ALTITUDE 
1. Low Earth Orbit (LEO) 

The lowest practical orbital altitude is normally defined to be 185 km. Orbits 
below this altitude decay rapidly due to atmospheric drag. This drag results in short 
orbital lifetimes, many of which are only a few days in duration [Ref. 2:pp. 152]. Above 
this altitude, the effects of atmospheric decay diminish rapidly, although some decay is 
still experienced by any satellite in LEO. The definition of an upper limit on altitude for 
low earth orbiting satellites is less specific than the lower one, but generally occurs around 
1,000 km [Ref 2:pp. 153]. These orbits are characterized as being nearly circular because 
there is little variation possible between the maximum apogee and minimum perigee. 
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LEO satellites exhibit short periods (i.e., from 87 to 105 minutes) that allow 
satellites to circle the Eanh many limes per day. Because the satellite is close to the Earth 
this variety of orbit is often used for making observation of the Earth's surface. By virtue 
of its closeness to the Earth's surface a satellite requires less energy to reach LEO than any 
other orbit. Therefore it is often used by heavier satellites, such as manned systems, and 
as a parking orbit for satellites that are destined for higher orbits. 

2. High Earth Orbit (HEO) 

A satellite in high earth orbit is one that spends the most of its time in altitudes 
from 5,000 to 19,300 km. A satellite is often placed in HEO to obtain a wider field of 
view of the Earth's surface or to eliminate the residual effects of atmospheric drag. 
Satellites operating at these altitudes revolve around the Earth at a slower rate than a LEO 
satellite, but in general will circle the Earth at least once per day. 

B . ORBIT CLASSIFICATION BY INCLINATION 

The inclination of a satellite is the angle that the plane in which the satellite is moving 
is tilted from the Earth's equator. Inclination can vary from 0 to 180°, where 0° is an 
equatorial and 90° is a polar orbit. Any orbit between 0 and 90° is called a posigrade orbit 
and an orbit between 90 and 180° are termed a retrograde orbit. An important property of 
inclination is that the maximum ground trace latitude of a posigrade satellite is equal to the 
satellites inclination (inclination - 90° for the case of retrograde satellites). [Ref. 3:pp. 
2.29] 

1. Sun Synchronous Orbit 

A special type of near circular, low earth orbit is the sun synchronous orbit. By 
definition, a sun synchronous satellite's orbital plane is always oriented at the same angle 
from the sun. A satellite in sun synchronous orbit makes use of perturbations due to the 
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oblateness of the Earth. The penurbative force causes the regression of the line of nodes 
(the orientation of the satellite plane) to match the rate that the Earth is revolving around the 
sun (i.e., about 360° 365.25 = 0.9856 degrees/day). Depending on altitude, a sun 

synchronous satellite will require an inclination of 95-105 ° to achieve the proper rate. [Ref 
3:pp. 2.42-2.44] 

A sun synchronous orbit can be selected so that the satellite is always passing 
over a given point on the Earth's surface at the same local time. This orientation is ideal 
for photographic missions, such as polar orbiting meteorological satellites, that require 
repetetive views of the same surface area under the same sun angle conditions. [Ref. 3:pp. 
2.44] 

2. Molniya Orbit 

Another less desirable change in the orientation of orbits caused by the 
oblateness of the Earth is the rotation of the line of apsides. Since the line of apsides is the 
semi-major axis, this rotation will change the orientation of perigee and apogee. This 
motion, that varies in strength depending on inclination, must be compensated for by 
satellites that are trying to maintain their orientation over a location on the Earth's surface. 
The sun synchronous orbit avoided this problem by requiring a circular orbit so that 
perigee is an undefined quantity and for most purposes the satellite's orientation remains 
unchanged. 

If, however, a long duration is required over the same portion of the Earth's 
surface either a geosynchronous orbit cr an elliptical orbit with its characteristically large 
percentage of time spent near apogee may be used. There is a critical angle of inclination 
(63.43°) where the line of apsides will not change orientation [Ref. 8;pp.l7]. A satellite 
with this inclination and a 12 hour period is commonly referred to as a molniya orbit, so 
called because it was first used by Soviet spacecraft instead of the geosynchronous orbit. 
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This orbit is much less expensive to achieve than geosynchronous and is also capable of 
providing direct overhead coverage at latitudes off the equator. 

C. ORBIT CLASSIFICATION BY PERIOD 

The period of a satellite is determined solely by its semi-major axis so the satellite 
may either be in a circular or an elliptical orbit. In general a satellite is classified according 
to period by dividing the orbital period into the length of the sidereal day. The result of 
this operation is either integer, rational, or irrational. Integer orbits exhibit ground trace 
patterns that repeat in 1 day cycles whereas irrational orbits do not trace any discernible 
pattern on the Earth's surface. Rational orbits fall somewhere between and may require 
many days before the orbit begins to repeat the ground trace pattern. [Ref. 5:pp. 83-99] 

1. Geosynchronous Orbit (P=23 hr 56 min) 

The geosynchronous orbit is an orbit whose period is identical to the length of 
the sidereal day. If the orbit has a non zero inclination the ground trace will be a figure 
eight that may be symmetric (circular orbits) or asymmetric (elliptic orbits) about the 
equator. As the inclination for a circular orbit is decreased, the satellite's orbit will trace 
smaller and smaller figure eights until a limiting case of the geosynchronous orbit is 
reached. 

This orbit, the geostationary orbit, gives continual direct overhead coverage to 
one particular location on the Earth's equator from an altitude of 35,768 km. At this 
distance the satellite is capable of viewing about 1/3 of the Earth's surface but is incapable 
of providing direct line of sight coverage to the polar latitudes. [Ref. 8:pp.9] 

2. Semi-synchronous Orbit (P = 11 hr 58 min) 

The semi-synchronous orbit is interesting because it is a compromise between 
the coverage offered by the geostationary satellite versus polar coverage and much lower 
launch to orbit expenditures. Many new satellite systems, such as the NAVSTAR GPS 
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navigation satellites are using semi- synchronous orbits to take advantage of these features. 
Because a single satellite is no longer capable of providing continuous coverage for a 
specific location, NAVSTAR GPS requires 6 orbital planes of three satellites each for a 
total of 18 satellites. [Ref. 3:pp. 12.7-12.8] 
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VII. IMPLEMENTATION 



A. INTRODUCTION 

The purpose of building the standard library is to provide a common mechanism for 
processing information about orbits for many applicarion programs. Coincident with this 
purpose is the desire to promote the use and further development of the library to meet the 
needs of its target audience. Since the intended user is the student of orbital mechanics, 
and is not a comnuter programmer or developer of a real time satellite control system, the 
library uses many analytic techniques which have been long since discarded by these other 
communities. 

The designed objective of the standard library is to provide a readable collection of 
functions capable of supporting several orbit models ranging from elementary to "real 
world". To achieve a high degree of readability for code written in the C programming 
language is not an easy task. First, a discipline of indenting nested structures was used to 
more clearly demonstrate the scope of variables and expressions. Secondly, many of the 
"standard" C shortcuts such as nesting assignment statements inside of logical expressions 
or auto-incrementing variables were prohibited from the library source code. Liberal use 
of "white space" and header comments was used to enhance the identification of function 
boundaries and provide a brief synopsis of the task performed by each function. Finally, 
no C optimization techniques weie allowed because they would require an increased level 
of programming sophistication on behalf of the reader. 

Functions that make use of values created by other library functions use the same 
invocation techniques as the user. In other words, the standard library follows the 
philosophy of writing to a non-programmer audience by avoiding shortcuts which would 
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unintentionally obscure the meaning of the function from the user. The meaning of each 
function is therefore more important than the overhead created by this calling discipline. 

The standard library was designed by making use of the programming practices of 
developing multiple layers of abstraction and functional decomposition. Layers of 
abstraction are realized by hiding the implementation of each function from the user and 
requiring the user to access each particular fact concerning an orbit via the standard library 
interface. In many cases the user is supplied with a return value unaware that the function 
has requested the services of other functions. Abstract data types allow the actual physical 
representation of the data to be removed as a user concern and enhance code readability. 
Decomposing the standard library into logical collections of functions make it easier for the 
user to trace the origin of a specific function and to narrow the scope of what must be 
assimilated at one time. Each section of the library is described in general terms below, 
while the individual routines are documented in Appendix B. 

B. LIBRARY NAMING CONVENTIONS 

Because C is a case sensitive programming language (i.e., "cAt" is not the same as 
"cat") the following capitalization conventions were adopted: 

• Names appearing in ALLCAPS are constants that cannot be changed by the user. 

• Names that begin with a capital letter, such as OrbitType, are C typedefs and 
represent the name of an abstract data type. A typedef may or may not be associated 
with an underlying structure that may be hidden from the user's view. 

• Names that begin in lower case and end with parentheses are function calls. The 
standard library function names begin with two letters followed by an underscore 
character (e.g., xx_). The two character prefix (gl, tl, cv, kl, and cs) is an abbreviation 
for the name of a sub-library that is part of the standard library. 
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Names that do not match any of the above descriptions a^'e typically variable names. 



Note that adherence to these naming conventions is strictly limited to code found 
inside of the standard library and is not enforced in user programs, such as the simulation. 
This is because the programming traditions for various operating systems, such as the 
Macintosh's, are subject to their own conventions and are often contradictory! 

C. THE GENERAL LIBRARY 

The library prefix "gl_" is used tc Jefine a General Library of common equations that 
describe the size and nature of an orbit. These functions correspond roughly to the 
material found in the first part of Chapter HI. This library contains an extensive collection 
of inverse relationships because one value may be required from one of many different 
known parameters for an orbit. Therefore given the proper minimal set of data it is 
possible to obtain all of the information available for a particular orbit. To simplify 
equation solving in introductory orbital mechanics courses it is common for many of the 
orbital values to be specified without the quality of direction. The values represented by 
the General Library have adopted this convention and are specified as scalar rather than 
vector quantities. 

D. THE CONVERSION LIBRARY 

The Conversion Library (cv_) actually contains most of the calling discipline between 
the user's view of the orbital data and the internal format that the standard library uses. 
Since the internal representation is hidden from the user, it is important that several 
different methods of supplying and retreiving values be provided. 

The abstract concept of angular measure, time systems, and several distance 
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measurement systems are all supported. For example, the user could express an orbital 
inclination measure in degrees and use the Conversion Library to store this value. Later 
the value could be retreived either in degrees or radians, without the user being aware of 
what format the standard library was using to compute its information. Similar 
conversions are accomplished between sidereal and solar time, metric and canonical 
distances, metric and canonical speeds, and even hours and canonical time units. 

E. THE TIME LIBRARY 

Time is a very important concept when considering the characteristics of a satellite. 
Therefore the functions that manage time values are organized into a seperate library. The 
commonality expressed in other libraries is much greater than what is found in the Time 
Library (tl_). In fact, the Time Library may be regarded as a highly specialized subset of 
routines that could have been located in the Conversion Library. This library provides a 
table lookup routine to convert known Universal and Sideral time values, a method to 
interpolate time values that are not included in the lookup table, a coarse time zone 
calculator, an algorithm for computing the local Sidereal time at an observer's location, 
and a pair Julian Date conversion routines. 

The table lookup routine encorporates a selected value for the time difference between 
Universal and Sidereal time for each of the past 21 years. This value may then be used 
with the interpolation function to obtain an approximate time conversion for anywhere 
within a given year. These functions may be called directly and are also used by the local 
sideral time algorithm to produce its results. 

The time zone calculator is useful when it is necessary to know how many hours 
different a local time is from Greenwich Mean Time. Successive calls to this routine could 
also be used to determine the number of hours that separate two local time zones. The 
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values returned by this function are only approximate because the actual time zones deviate 
from being truly longitudinal and because of differences in the local government's 
adoption of daylight savings time. The U.S. Uniform Time Act of 1966 established 
standard abbreviations for time zones that encompass U.S. territory [Ref. 9:pp. 256]. 
These abbreviations, as well as Greenwich Mean Time, are available to the user via 
another time zone calculation routine. Values in the internal table managed by this function 
may easily be modified to include other localized abbreviations. 

A very important primitive routine for managing access to dates is the calculation of 
the number of days between dates or determining a date that is a given number of days 
away from an initial date. Although these routines could be coded directly in a "brute 
force" manner, the Time Library takes a different approach. By being able to convert 
Julian dates to and from the conventional month, day, and year values, these routines can 
satisfy the date calculation requirement and provide the additional service of Julian date 
computation. The algorithms used are numerical in approach and compensate easily for 
the leap year case. [Ref. 10:pp. 19-20] 

F. THE COORDINATE SYSTEM LIBRARY 

The libraries mentioned earlier use abstract data values that, for the most part, 
represent single values. The Coordinate System Library (cs.J makes a departure from this 
approach and instead deals with an aggregate data value, whose definition is still 
abstracted. The reason for this difference is to encourage the use of a predefined dr.ta type 
called "OrbitType". The user of this library is probably calculating satellite coordinates 
relative to a similar structure already and can use the predefined type without too much 
additional effort. Another reason to enforce this approach is that the Coordinate System 
Library was designed to support an abstracted notion of a satellite orbit. This principle 
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would have been violated if the user were required to make conversions directly from the 
single internal representation used by the standard library. 

G . THE KEPLER PROBLEM LIBRARY 

This is the smallest library (kl_) and contains all of the code that relates directly to the 
solution of the Kepler Problem outlined in Chapter V of this thesis. The most important 
calculation performed is the Newton-Raphson iteration method of root finding. This 
algorithm is used to determine approximate values for the Eccentric Anomaly from an 
initial Mean Anomaly and a specified time difference. 
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Vin. CONCLUSIONS AND RECOMMENDATIONS 



Perhaps the best measure of the usefulness of computer software is the amount of 
further development it receives. The simulation implements only a large subset of the 
functions provided by the library and thus should not be used as an evaluative measure for 
routines included in the library. The simulation does attempt, however, to illustrate how 
many of the included routines might be used in context and provides a vehicle for guiding 
future library expansion. 

Several areas that the library could benefit from future enhancements are speed 
optimization, better handling of special case orbits, increased versatility of existing 
routines and inclusion of new routines. The library was conceived as a method of 
illustrating various orbital phenomena and speed of execution was secondary to the 
pedagogical value of the library functions. Each routine is implemented in the same 
manner that the material was presented. Thus the reader may more easily follow the logic 
behind each function. 

The library may be used in other programs that require more computational ef ficiency 
than the current implementation. Certain routines may be identified as less than optimal 
when used with real time graphics programs, for example. An optimized version, capable 
of providing faster results (perhaps with a loss in accuracy) than its counterpart, can be 
constructed and used instead of the existing function. 

There are some orbits which are not easily calculated with the algorithms used by the 
standard library. Most notable among these is the ordinary geostationary orbit. The 
algorithm presented will not work because several Classical Orbital Elements (namely, 
argument of perigee and longitude of the ascending node) are undefined for this particular 



50 



orbit. Either a new algorithm could be introduced or these orbits could be handled by 
several special case functions. Therefore, these conditions do not represent a severe 
problem, but are easily handled within the framework of the existing library. 

The versatility of the library could be increased in several directions, and this depends 
on the target audience's tastes and requirements. The primary areas of interest are systems 
of units and coordinate systems. For example, there may be a need for English units of 
measurement or a pointing vector from the position of one satellite to another. These 
functions may be constructed by cloning an existing function and encapsulating the user's 
specific requirement in a new set of functions. 

The library is also an attempt at providing a basis for including future concepts 
concerning orbits. There are many topics that fit this category including atmospheric drag 
effects, calculating rendezvous problems, and determining an orbit from launch location 
and initial velocity. The degree of difficulty in implementing these capabilities varies 
widely, but should be rendered easier by the existence of the standards developed by this 
library. 

The reasons to study the motion of satellites around the planet Earth are numerous. 
The mechanisms behind satellite systems, communications capabilities or simple curiosity 
about the way space objects behave are more clearly comprehended if they can be modeled 
with pictures. The standard library is a starting point for answering these questions. By 
using the library, the simulation is capable of demonstrating the basic orbital concepts that 
hopefully, will generate more sophisticated questions. 
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APPENDIX A SYMBOL GLOSSARY 



There are many symbols and abbreviations used throughout this paper to represent 
specific variables, constants or concepts. This glossary is an alphabetical listing of 
terminology by English and Greek alphabets, subscripts and superscripts, and by 
coordinate system abbreviations. Many of the symbols used are considered "standard" 
notation, but occasionally there is a conflict in useage between different authors. Known 
alternative symbols used by some references are provided in square brackets ([]) following 
the symbol used by this thesis. 

Where vector quantities are appropriate the corresponding variable name is 
boldfaced (i.e., the velocity vector v is a vector quantity, while the speed v is a scalar 
value equal to the magnitude of v). Where a symbol is only valid as a vector quantity 
(such as coordinate system abbreviations) the symbol will appear in boldface. In some 
cases symbols may be located under more than one listing, and the proper symbol 
definition is determined from the context in which the symbol is found. 

ENGLISH SYMBOLS 

a, a^arth semimajor axis of an ellipse or semimajor axis (equatorial radius) of the 
Earth. 

A2 azimuth angle measured from north clockwise to an object. 

b semiminor axis of an ellipse. 

e, Cgarth eccentricity of an ellipse or eccentricity of a reference spheroid representing 
the Earth. 

E eccentric anomaly. 

Ej elevation angle measured from horizon to an object. 
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f flattening of the Earth. 

F, F' foci of an ellipse where one focus (F) is occupied by the primary and the 
other (F’) is an empty focus. 

G universal gravitational constant. 

h altitude or distance that an object is above a reference radius (r). 

i inclination angle of the orbit plane to the equatorial plane. 

UK Geocentric Equatorial coordinate system. 

J{(0) ith zonal harmonic coefficient in the Earth's gravitational potential, 

k constant of gravitation for the Earth. 

Mgarth mass of the Earth. 

M, Mo variable or constant expression for mean anomaly, 
n mean motion of a satellite, 

p semiparameter of a conic section (ellipse). 

P period of a satellite. 

P{ ith Legendre polynomial used in representing the Earth's gravitational 

potential. 

PQW Perifocal coordinate system. 

Tp, general radius of an ellipse, radius at apogee, radius at perigee, or radius 
dearth of Earth. 

SEZ Topocentric coordinate system. 

t, to time variable or arbitrary epoch time. 

T time of periapsis passage. 

U gravitational potential. [O] 

UT universal (solar) time. 

V, Vgsc velocity or escape velocity of a satellite. 
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GREEK SYMBOLS 



a right ascension angle. 

5 declination angle. 

A small increment, difference, 

e specific energy. 

9, 9g, local sidereal time, Greenwich sidereal time or Greenwich sidereal 
9g0 time at epoch. 

local hour angle. 

|i gravitational parameter of a primary (GMgai^h). 

V true anomaly. 

K pi. 

p range to an object or intermediary angular value, 

p' angular rotation rate of the Earth. [cOearth] 

X canonical (characteristic) unit of time. 

<j) geodetic latitude. [L] 

<J)g geocentric latitude. [|3, <t)'] 

\|/ flight path angle. [<J)] 

(0 argument of perigee, 

n longitude of the ascending node. 

SUPERSCRIPTS 

' a derivative of some variable generally taken with respect to time, 

inverse of a trigonometric function. 
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SUBSCRIPTS 



apogee relating to the apogee position of an orbit. 

earth relating to the Earth. 

esc escape value from gravitational force. 

E east. 

g Greenwich (time) or geodetic (latitude), 

n iterative value. 

perigee relating to the perigee position of an orbit. 

0 epoch or initial value. 

CO referring to the orbit plane. 

COORDINATE SYSTEM ABBREVIATIONS 

UK geocentric equatorial coordinates ; x,y,z. 
PQW perifocal coordinates : 

SEZ topocentric coordinates : A^.Ejjp. 

(^Xh geographic coordinates: <l),A.,h. 

R.A.-Decl. 

right ascension declination coordinates: a,5,r. 
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APPENDIX B 



STANDARD LIBRARY SOURCE LISTING 






FILENAME 

DESCRIPTION 

ENVIRONMENT 

AUTHOR 

ADVISORS 



REMARKS 

VERSION 



StdLib.h 

header file for StdLib.c 
Macintosh SE 1Mb RAM 
LightSpeed™ C v2 . 15 
Captain Kenneth L. BEUTEL USMC 
Prof. Dan Davis 
Prof. Dan Boger 

Naval Postgraduate School, Monterey CA 
none 

0.9 (3/6/88) 



CHANGES 



3/6/88 Formatted for MacWrite conversion 



★ *★★★★*★*•**★★★*★★★***★★*★★*★★★*★★*★★*★★■**★★★****★★**★★***★★★★★*★**★★★ -k ! 

/* typedef and structure declarations */ 



typedef 


double 


Angle; 


/* 


radian 


angular 


measure 


*/ 


typedef 


double 


Time; 


/* 


decimal 


seconds 


time of day measure 


*/ 


typedef 


double 


Dist ; 


/* 


distance 


in kilometers 


*/ 


typedef 


double 


Real ; 


/* 


numeric 


format 


for other non-ints 


*/ 



typedef struct 

{ 

Real 

Time 

} DateTime; 



date; 
t ime ; 



/* julian day and year 
/* time in decimal hours 



*/ 

*/ 



typedef struct 



char 


name [20]/ /* identity of this orbit 




*/ 


Dist 


semimajor; 








/* semimajor axis (a) 




*/ 


Real 


eccentricity; 






Angle 


inclination; 






Angle 


mean_anom;/* Mean anomaly (MO) 




*/ 


Angle 


arg_o f_perigee ; 






Angle 


1 ong_o f _a s c_node ; 








/* longitude of ascending node 


CapOMEGA 


*/ 


Time 


epoch; /* epoch time (t) 




*/ 


Real 


date; /* epoch julian date 




*/ 


★★★★★★★★ 


The following are for internal use by library 


routines 






only. The user should access these values via 


. function 




calls . 




*/ 
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Angle 

} OrbitType; 



eccentric_anom; 

/* eccentric anomaly at time T 



*/ 



typedef struct 
{ 

/* Perifocal (PQW) position coordinates */ 



Dist 


x; 


/* 


positive X points towards perigee 


*/ 


Dist 


y; 


/* 


pos y in orbit plane 90^ ahead of x 


*/ 


Dist 

} PQWCoord; 


z; 


/* 


z is positive normal to orbit z= 0 


*/ 



typedef struct 
{ 

/* Geocentric Equatorial (UK) position coordinates : */ 



Dist 


x; 


/* 


positive 


X 


points 


to 


vernal equinox */ 


Dist 


y; 


/* 


positive 


y 


90^ R.H 


of 


X */ 


Dist 

} IJKCoord; 


z; 


/* 


positive 


z 


normal 


to 


rotation (north) */ 



typedef struct 

{ 

/* Topocentric Horizon (SEZ) position coordinates : */ 

Angle elevation;/* clockwise from -s */ 

Angle azimuth; /* positive upwards from horizontal */ 

Dist range; /* from observer to satellite */ 

} SEZCoord; 



typedef struct 

{ 

/* Right Ascension-Declination 



Dist 


r; 


/* 


Angle 


ra; 


/* 


Angle 


dec 1 ; 


/* 


} RADCoord; 







(R.A.-D.) position coordinates : */ 
distance from primary's center */ 
rt . ascension angle from ver equinox */ 
declination from celestial equator */ 



typedef struct 

{ 

/* Geographic 
Dist 
Angle 
Angle 

} GEOCoord; 



(GEO) position coordinates : 

altitude; /* distance above reference ellipsoid 
latitude; /* angle above or below the equator 
longitude;/* angle east of Greenwich meridian 



*/ 

*/ 

*/ 

*/ 



typedef struct 

{ 

char 

Real 

Real 



name[20]; /* identity of primary (normally earth) */ 
curr_time;/* time in decimal days since ephemeris */ 
grav_jparam; 

/* gravitational parameter (GM) */ 
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Dist 


radius ; 


/* mean equatorial radius of primary 


*/ 


Time 


herg; 


/* base time unit 


*/ 


Real 


speed; 


/* base time rate of change dist 


*/ 


Real 


ang_rot ; 


/* ang rotation rate of earth 




Real 


eccentricity; 








/* oblateness of reference spheroid 


*/ 


Real 


J2; 


/* 2nd zonal hgarmonic 


*/ 


Real 


J4; 


/* 4th zonal harmonic 





} PrimaryType; 



/★ ★★★★★★★★★★★★★★★ extern variables found in stdlib.c ★*★***★*★*★**** */ 



extern 


PrimaryType gl_p rimary; 








/* gl_ 


★★★★★★★★★★★★★★★ 


prototypes for functions in general library 


*/ 


void 


gl_idf It ( ) ; 


/* 


init default values for primary 


*/ 


char 


*gl_gpnam() ; 


/* 


get 


primary's name 


*/ 


void 


gl_iorbt ( ) ; 


/* 


set 


initial values for orbit 


*/ 


Dist 


gl_gorba ( ) ; 


/* 


get 


orbital semimajor axis 


*/ 


char 


*gl_gorbn ( ) ; 


/* 


get 


orbital name 


*/ 


Real 


gl_gorbe () ; 


/* 


get 


orbital eccentricity 


*/ 


Angle 


gl_gorbi ( ) ; 


/* 


get 


orbital inclination 


*/ 


Angle 


gl_gorbm ( ) ; 


/* 


get 


orbital mean anomaly 


*/ 


Angle 


gl_gorbp 0 ; 


/* 


get 


orbital arg of perigee 


*/ 


Angle 


gl_gorbl () ; 


/* 


get 


orbital long of asn node 


*/ 


Time 


gl_qorbt ( ) ; 


/* 


get 


orbital epoch */ 




Dist 


gl_gradp () ; 


/* 


get 


radius of perigee 


*/ 


Dist 


gl_grada ( ) ; 


/* 


get 


radius of apogee 


*/ 


Dist 


gl_gradi ( ) ; 


/* 


get 


radius at true anomaly angle 


*/ 


Dist 


gl_grade 0 ; 


/* 


get 


radius at Eccen Anom angle 


*/ 


Angle 


gl_gtrue () ; 


/* 


get 


true anomaly at radius 


*/ 


Dist 


gl_gxpos ( ) ; 


/* 


get 


X pos in PQW coords at true anom 


*/ 


Dist 


gl_gypos () ; 


/* 


get 


y pos in PQW coords at true anom 


*/ 


Dist 


gl_gsemi ( ) ; 


/* 


get 


semi parameter of a conic 


*/ 


Real 


gl_gmean ( ) ; 


/* 


get 


mean motion constant 


*/ 


Time 


gl_gperd 0 ; 


/* 


get 


period 


*/ 


Real 


gl_gvelo () ; 


/* 


get 


velocity at radius r 


*/ 


Real 


gl__gvesc ( ) ; 


/* 


get 


escape velocity at radius r 


*/ 


Angle 


gl__gfltp 0 ; 


/* 


get 


flight path angle (0 to pi/2) 


*/ 


Dist 


gl_glosd ( ) ; 


/* 


get 


line of sight dist to horizon 


*/ 


Dist 


gl_ggswi 0 ; 


/* 


get 


geometric swath width 


*/ 


Real 


gl_gangm() ; 


/* 


get 


angular momentum 


*/ 


Real 


gl_gspen ( ) ; 


/* 


get 


specific energy 


*/ 


/* tl_ 




prototypes for functions in time library 


*/ 


Real 


tl_gzone ( ) ; 


/* 


get 


time zone number past GMT 


*/ 


char 


*tl__gznam( ) ; 


/* 


get 


time zone name from time zone no 


*/ 


Time 


tl_gknow ( ) ; 


/* 


table lookup known Greenwich time 


*/ 


Angle 


tl_ggren () ; 


/* 


get 


Greenwich sidereal time (approx) 


*/ 



58 



Angle tl_glstm(); /* get local sidereal time at longitude*/ 
Real tl_gjuld(); /* get julian date (in whole days) */ 
void tl_gmdyr(); /* get month, day and year from jul date */ 

/* cv_ *************** prototypes for functions in conversion library */ 



Angle 


cv_sangd ( ) ; 


/* 


set angle in degrees 






*/ 


Angle 


cv__sangr ( ) ; 


/* 


set angle in radians 






*/ 


Real 


cv_gangd ( ) ; 


/* 


get angle in degrees 






*/ 


Real 


cv_gangr ( ) ; 


/* 


get angle in radians 






*/ 


Time 


cv_gsolt ( ) ; 


/* 


get solar time from sidereal time 




*/ 


Time 


cv_gsidt ( ) ; 


/* 


get sidereal time from solar time 




*/ 


Dist 


cv_cdisk ( ) ; 


/* 


convert canonical distance to km 




*/ 


Dist 


cv_ckdis ( ) ; 


/* 


convert km to canonical 


distance 




*/ 


Real 


cv_ckspd 0 ; 


/* 


convert Km/sec to canonical Speed 


*/ 


Real 


cv_cspdk ( ) ; 


/* 


convert canonical Speed 


to Km/sec 




*/ 


Time 


cv_chtim() ; 


/* 


Convert secs to canonical TIMe 




*/ 


Time 


cv_ctimh ( ) ; 


/* 


Convert canonical TIMe to secs 




*/ 


/* cs_ 




prototypes for functions in Coord 


Sys Trans 


lib*/ 


void 


cs__gpqwc ( ) ; 


/* 


get PQW coordinates 


(trans 


#1) 


*/ 


void 


cs_gi jkc 0 ; 


/* 


get UK coordinates 


(trans 


#2) 


*/ 


void 


cs_gpqwk 0 ; 


/* 


get PQW from Keplerian 


(trans 


#3) 


*/ 


void 


cs_gi jks 0 ; 


/* 


get UK from SEZ 


(trans 


#4) 


*/ 


void 


cs_gi jkr ( ) ; 


/* 


get UK from RA-Decl 


(trans 


#5) 


*/ 


void 


cs_gradc ( ) ; 


/* 


get RA-Decl coordinates 


(trans 


#6) 


*/ 


void 


cs_ggeoc ( ) ; 


/* 


get GEO coordinates 


(trans 


#7) 


*/ 


void 


cs_gijkg () ; 


/* 


get UK from GEO 


(trans 


#8) 


*/ 


/* kl_ 




prototypes for functions in Kepler 


Library 




*/ 


Angle 


kl_gecca ( ) ; 


/* 


get eccentric anomaly at 


time t 






Angle 


kl_geccp () ; 


/* 


perturbed eccentric anom 


. at time 


t 


*/ 



/★ ★★★*★★★*★★★*★*★***★ macros expand calls to variables that are located 
in the general library using shorthand that is commonly found 
in orbit equations. */ 

#ifndef PI 

#define PI 3.14159265359 

#endif 
#ifndef MU 

#define MU gl_primary . grav_jparam 

#endif 

/* numerical convergence value */ 

#ifndef GL_EPSILON 

#define GL__EPSILON 0.000001 

#endif 
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FILENAME 

DESCRIPTION 

ENVIRONMENT 

AUTHOR 

ADVISORS 



REMARKS 

VERSION 



genLib.c 

General Purpose StdLib source file (gl_) 

Macintosh SE iMb RAM 

LightSpeed™ C v2.15 

Captain Kenneth L. BEUTEL USMC 

Prof. Dan Davis 

Prof. Dan Boger 

Naval Postgraduate School, Monterey CA 
none 

0.9 (3/6/88) 



CHANGES 



3/6/88 Formatted for MacWrite conversion 






finclude <stdio.h> 
finclude <storage .h> 
tinclude <math.h> 
finclude <strings.h> 

/* include the StdLib header file's typedefs and global variables */ 
#include "StdLib . h" 



/★ k-kkk-kkkkkkkkk global variables that must be initialized for genlib */ 
Primary Type gl_p rimary; 

/* declaration of internal primary name */ 

/* Because this is a library no main procedure is allowed or required, 
all function names follow the standard convention : 

gl__adddd - where gl is the library name (General Library) 
a is the action that the function performs (such as 

initialize, get, set, and query) 
dddd is the function's descriptive name */ 



/ k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

gl_idflt : initialize default values (Bate et.al.) for earth as a 
primary in metric units 

★★**★★**★★★*★**★★**★★★★★*★**★***★*★***★***★*★*★*★*★★★★*★*★*★*****★ k / 

void 

gl_idf It 0 

{ /* Note that values for primary must be specified in metric units */ 

St rcpy (gl_p rimary . name, "Earth") ; 
gl_primary . grav_jDaram = 3.98 6012e5; 

/* in kg */ 

gl^primary. radius == 6378.145; 

/* in km */ 
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gl_primary .herg = 806.8118744; 

/* in sec ! 

gl_primary . speed = 7.90536828; 

/* in km/ sec */ 



gl_primary . ang_rot = 7 . 2921158 6e-5 * 3600.0; 

/* in rad/hr 

gl_primary . eccentricity = 0.08182; 
gl_primary . J2 = 1082.64e-6; 
gl__primary . J4 = -2.5e-6; 
j /★ function initialize defaults 






*/ 



*/ 



j -k ★****★★★★★•*★★*★★★★**•**★*■★★★★★★★★*■*•★★★★★★*★***★*★**★★**★★★★*★★*★★**★★* 

gl_gpnam : gets the name of the primary 

★ ★★*********************■*★*******■*■*★**•*★★**•*•**★★*■★★★★★★★★★★*★★★★★★ k ! 

char * 
gl_gpnam() 

{ 

return (gl_j:>rimary . name) ; 

j jk kkkkkkkkkk function get primary name ************************* */ 



jk kkkkkkk functions that work with the Orbit Typedef records ******* */ 

j k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

gl_sorbt : set values for new orbit record 

★ ★★★★★*★★*★★★★★★★★**★★*■★★*★★***★**★****★*★************************ k j 

void 

gl_sorbt (name^ a, e,- i^ mean_anom^ peri, asn, epoch, date, orbrec) 
char *name; 

Real a, e; 

Angle i, mean_anom, peri, asn; 

Time epoch; 

Real date; 

OrbitType *orbrec; 

{ 

strcpy (orbrec->name, name); 
orbrec->semima jor = a; 
orbrec->eccentricity = e; 
orbrec->inclination = i; 
orbrec->mean_anom = mean_anom; 
orbrec->arg_of_perigee = peri; 
orbrec->long_of_asc_node = asn; 
orbrec->epoch = epoch; 
orbrec->date = date; 

orbrec->eccentric_anom = 0.0; 

kl_gecca (&*orbrec, epoch); /* initial calc of ecc anomaly */ 
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J j ~k 'k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k ^ ULUC 1 3.0X1 S€ tl O IT 1 d i.tl * j 

J ic •k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k-k-k-k'k'kif'k-k'k-k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k'k'k-k'k'k-k 

gl_gorbn : get orbit name from orbit record 

*★***★***★★★***★**★**★*****★*★★**★**★**★*****★***★*★*•*★*★★★*★***** 

char * 
gl__gorbn (orbit) 

OrbitType orbit; 

{ 

return (orbit .name) ; 

j ***★**★★*★ function get orbit name *************************** */ 

/* ********************************************************************* 
gl_gorba : get orbit semimajor axis from orbit record 

★ ★*■*★*★★★■*★★★★★■*★★'*■*■*★★★*■*★■*■■*★'*■*★★★★★*******■*★****★★★■*★*****★****★ ~k ^ 

Dist 

gl__gorba (orbit) 

OrbitType orbit; 

{ 

return ( orbit . semimajor 
} /* ********** function 



) ; 

get orbit semimajor axis ***************** */ 



********************************************************************* 
gl_gorbe ; get orbit eccentricity from orbit record 
****************************************************************** */ 



Real 

gl_gorbe (orbit) 

OrbitType orbit; 

{ 

return ( orbit . eccentricity ); 

j /* ********** function get orbit eccentricity ******************* */ 



/* ********************************************************************* 
gl__gorbi ; get orbit inclination from orbit record 
****************************************************************** */ 



Angle 

gl__gorbi (orbit) 

OrbitType orbit; 

{ 

return ( orbit . inclination ); 

j /* ********** function get orbit inclination ******************** */ 



^* ********************************************************************* 
gl_gorbp : get orbit argument of perigee from orbit record 

****************************************************************** */ 
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orbit ; 



Angle 

gl_gorbp (orbit) 

OrbitType 

{ 

return ( orbit . arg__of_perigee ); 

j ********** function get argument of perigee ****************** */ 

/* ********************************************************************* 
gl_gorbm : get orbit mean anomaly from orbit record 

****************************************************************** *^ 
Angle 

gl__gorbm (orbit ) 

OrbitType orbit; 

{ 

return ( orbit .me an__anom ); 

} /* ********** function get orbit mean anomaly ******************* */ 

j -k ********************************************************************* 

gl_gorbl : get orbit longitude of ascending node from orbit record 

****************************************************************** -k j 

Angle 

gl__gorbl (orbit) 

OrbitType orbit; 

{ 

return ( orbit . long_of_asc_node ); 

} /* ********** function get long of asc node ******************** */ 

j k ********************************************************************* 

gl_gorbt : get orbit epoch time from orbit record 

****************************************************************** k ! 

Time 

gl_gorbt (orbit) 

OrbitType orbit; 

{ 

return (orbit . epoch) ; 

J jk ********** function get epoch time *************************** */ 

/* ********************************************************************* 
gl_gradp : get radius of perigee 

****************************************************************** k j 

Dist 

gl__gradp (a^ e) 

Real a,e; 

{ 

return ( a * (1.0 - e) ); 

J /* ********** function get radius of perigee ******************** */ 
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gl_gorba : get radius of apogee 

★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ i( j 

Dist 

gl_grada (a^ e) 

Real a^e; 

{ 



return (a * (1.0 + e)); 

j /* *★★★★★★★★★ function get radius of apogee ********************* */ 



gl_gradi : get radius at true anomaly angle nu 

★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ k j 

Zr t 

gl_gradi (p^ e, nu) 

Real p^e; 

Angle nu; 

{ /* p = a (l-e*e) semiparameter */ 

return ( p / (1.0 + e * cos ( cv_gangr(nu) )) ); 

} /★ kkkkk function get radius at true anomaly angle ************** */ 



j k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

gl_grade : get radius at Eccentric anomaly angle E 

★★★★*★★*★★★*★★★★★★★★★*★★★★★*★★★★★★★★★★★★★★★★★★★★★★★★*★★★★★★★*★*★★★ k ! 

Dist 

gl_grade (a^ e, eccen__anom) 

Dist a; 

Real e; 

Angle eccen_anom; 

{ /* from Smith Pp . 65 */ 

return (a * (1.0 - e * cos ( cv_gangr (eccen_anom) ))); 

} /* ^ function get radius at Eccentric anomaly angle ********* */ 



I k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

gl_gtrue : get true anomaly angle nu at radius r 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k J 



Angle 

gl_gtrue (x^y,p,e) 

Dist x^y^p; 

Real e; 

{ /* p = a (l-e*e) semiparameter */ 

Dist r; 

Angle nu; 
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divide by zero error check 



if (e == 0.0) /* 

return ( 0.0); 

r = sqrt ( x*x + y*y) ; 
nu = acos ( ( (p/r) - 1.0) / e ); 

if ((x>0) && (y>0)) 

; / * nu = nu 

else if ((x<0) && (y>0)) 

; /* nu = (PI/2.0) + nu 

else if ((x<0) && (y<0) ) 

nu = (2.0*PI) - nu; 
else if ( (x>0) && (y<0) ) 
nu = (2.0*PI) - nu; 



*/ 



*/ 



*/ 



} 



return ( nu ) ; 

/* ***** function get 



true anomaly angle ************************ */ 



j ii ********************************************************************* 

gl_gxpos : get x position in PQW coords at true anom 

****************************************************************** */ 
Dist 

gl_gxpos (p, e, nu) 





Dist 


p; 








Real 


e; 








Angle 


nu; 






{ 




/* p = 


a 


(l-e*e) semiparameter */ 




return ( 


(p * cos ( cv_gangr(nu) )) 


/ 


(1.0 + e * cos ( cv_gangr(nu) )) ) 


} 


! k * * * * 


function get x position 


in 


PQW coords at true anom ****** */ 



j 'k ********************************************************************* 

gl_gypos : get y position in PQW coords at true anom 

****************************************************************** -k j 

Dist 

gl_gypos (p,e,nu) 

Dist p; 

Real e; 

Angle nu; 

{ /* p = a (l-e*e) semiparameter */ 

return ( (p * sin( cv_gangr(nu) )) / (1.0 + e * cos ( cv_gangr(nu) )) ) 
} /* **** function get y position in PQW coords at true anom ****** */ 



j k ********************************************************************* 

gl_gvelo : get velocity at radius r 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k j 

Real 

gl_gvelo (r, a) 

Dist r,a; 
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{ 

} 



return ( sqrt (MU 



/* note MU = 1.0 for canonical units 
((2.0/r) - (1.0, a))) ); 



/* **** function get velocity at r 






gl_gvesc : get escape velocity at radius r 

**★★*★★*****★★★**★*★★*★★★*★*★**★*★★★*★★★★**★★★*★**★*★★*★★★★★*★**★* k j 

Real 

gl_gvesc ( r) 

Real r; 

{ /* note MU = 1.0 for canonical units */ 

return ( sqrt (MU * (2.0/r)) ); 

} jk kkkk function get escape velocity **************************** */ 



j k kkkkkkkkkkkkkkkkkkkkk-* *(kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

gl_gfltp : get flight path angle at radius using h^v 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k j 



Angle 




._gfltp(h, r, v) 




Real 


h; 


Dist 


r; 


Real 


v; 


return ( (Angle) 


acos (h / (r * v) ) ) 



} /* **** function get flight path angle at 



J- ******************** * kj 



! k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

gl_glosd : get line of sight dist to horizon at radius r^ 

using gamma (angle above horizon) 

★★★**★***★***★**★**★★*★**★★*★*****★******★***★*★***★*★***★**★★*★** k ! 

Dist 

gl_glosd(r^ gamma) 

Dist r; 

Angle gamma; 



Real 



temp; 



temp = gl_primary . radius * cos ( 
return ( r * cos (cv^gangr (gamma) 

/★ function get line of sight dist to horizon ************** */ 



cv_gangr (gamma) ) / r; 

+ as in (temp) ) /cos (cv_gangr (gamma) ) 



) 



j k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

gl_ggswi : get geometric swath width 

Dist 

gl_ggswi ( r) 
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Dist 



r; 



{ 

return ( 2.0 * gl_primary . radius * acos (gl_primary . radius / r) )/ 
j /* ***** function get geometric swath width ********************* */ 



/* 



**************** ORB 



I T A L 



CONSTANTS 



****************** 



Constants 



need only be 



*********************** ORBITAL 



evaluated once per orbit 

QQjvjg S *************************** * / 



^* ********************************************************************* 
gl_gsemi : get semi parameter 

****************************************************************** */ 



Dist 

gl__gsemi (a^ e) 
Dist 
Real 

{ 

return ( a * 

J ! -k ~k -k -k -k k -k -k 



a; 

e; 

1.0 - e*e) ) ; 

function get semiparameter of conic ****************** */ 



! k ********************************************************************* 

gl_gangm : get angular momentum 

****************************************************************** */ 



Real 

gl_gangm(a^ e) 
Dist 
Real 

{ 

Real 



a; 

e; 

/* evaluate r x v at perigee 
rperi^ vperi, p; 



*/ 



} 



p = gl_gsemi(a^ e) ; 

rperi = gl_gradi (p, e^ 0.0); 

vperi = gl_gvelo (rperi ^ a); 

return ( rperi * vperi ); /* fit path angle is 90 degrees 

/* ***** function get angular momentum ************************** 



*/ 

*/ 



j k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

gl__gmean : get mean motion constant 

****************************************************************** k j 



Real 

gl_gmean (a) 

Dist a; 

{ /* 
return ( sqrt (MU) / pow(a^l.S) 

/* 

} /* ******* function get mean 



MU in canonical units = 1.0 by defn 
/ 

m = ( MU/a*a*a) ''\!2 
motion constant ******************** 



*/ 



*/ 

*/ 
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/* 



gi. 

{ 

} 



icicicicicicic'k-k'k'k-k-k-k-k-kic-k-k-k-k-k'k-k-k'k-k'k'k-k'k'k-k-kic-k'k'k'kicic-kicic'k'k-k-k-kic-kicic-k'kic'k-k'k-k'k-k-k-kif-k-k'k-k 

gl_gperd : get period 



Time 
gperd (n) 

Real n; 



return ( 2 * 

j ★ *★★*•★★★ 



PI / n ) ; 

function get period 



•k-k'k-k-k-k-k-k'k'k'k'k'k-k'k'k-k'k'k-k'k'k'k-k'k-k'k-k'k'k'k'k'k'k ★ j 



/* 



gi 



{ 

} 



■k'k-k'k-k'k'k^'k-k-k'k'k'k-k'k'k'k-k'k-k'k'k-k-k-k-k-k'k'k'k'k'k-k-k'k-k'k'k-k'k-k-k-k-k-k'k'k-k'k-k'k'k'k-k'k'k'k-k'k-k-k-k-k-k-k'k-k'k 



gl_gspen : get specific energy 

~k ! 

Real 

gspen (v, r) 

Real v; 

Dist r; 



return ( (v * v / 2.0) + 
/★ function get 



(MU / r) ) ; 
specific energy 






68 






FILENAME 

DESCRIPTION 

ENVIRONMENT 

AUTHOR 

ADVISORS 



REMARKS 

VERSION 



convert. c (cv_) 

Conversion formula StdLib source file 

Macintosh SE 1Mb 

LightSpeed™ C v2.15 

Captain Kenneth L. BEUTEL USMC 

Prof. Dan Davis 

Prof. Dan Boger 

Naval Postgraduate School, Monterey CA 
none 

0.9 (3/6/88) 



CHANGES 



3/6/88 Formatted for MacWrite conversion 



★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ -k j 



tinclude 

finclude 

♦include 

finclude 



<stdio .h> 
<storage .h> 
<math .h> 
<strings .h> 



/* include the StdLib header file’s typedefs and global variables 
finclude "StdLib. h” 



/* Because this is a library no main procedure is allowed or required, 
all function names follow the standard convention : 
cv__adddd - where 

cv is the library name, (CONVERSION LIBRARY) 
a is the action that the function performs (such as 
(i) initialize, (g)get, (s) set, and (c) convert) 
dddd is the function’s descriptive name */ 

j k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

SPECIAL NOTE : all angular measures’ are stored internally in radians 
all distance quantities are stored in kilometers 
all time and mass quantities are stored in the initial 
units specified 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ ★ j 



j k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

cv__sangd : set angle measure in degrees 
Angle 

cv_sangd (degrees ) 

Real degrees; 

{ 
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■kicic'k'k-k-k'kicic'k-k'kiricic -k j 



return ( 0.0174532925199 degrees ); 
j /★ ★★★★★★★★★★★★★★★ function set angle (degrees) 



/ k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

cv_sangr : set angle measure in radians 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k J 

Angle 

cv_sangr ( radians ) 

Real radians; 

{ 

return ( radians ) ; 

j jk kkkkkkkk kkkkkkk function set angle (radians) ★/ 



^ k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

cv_gangd : get angle measure in degrees 
Real 

cv_gangd (value) 

Angle value; 

{ 

return ( 57.2957795131 * value ); 
j ^k k k k k k k k k k k k k k k k function Set angle (degrees) 



/ k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

cv_gangr : get angle measure in radians 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k / 

Real 

cv__gangr (value) 

Angle value; 

{ 

return ( (Real) value ); 

j /k kkkkkkkkkkkkkkk function set angle (radians) ★★★★★★★★★★★★★★★★ */ 



^ k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

cv_gsolt : get solar time from sidereal time 

★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ k ^ 

Time 

cv_gsolt (value) 

Time valued- 



return ( value * 1.0027379093 ); 

/* = sideral * sol/sid day 






j ^k kkkkkkkkkkkkkkk function get solar time **'**^****^'**********'***'* 



^ k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
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cv_gsidt : get sidereal time from solar time 
Time 

cv_gsidt (value) 

Time value; 

{ 

return ( value * 0.9972695664 ); 

/* = solar * sid/sol day */ 

j /★ ★★★★★★★★★★★★★*★ function get solar time ********************** */ 

cv_ckdis : convert Kilometers to canonical Distance 
Dist 

cv_ckdis (km_distance) 

Dist km_distance; 

{ 

return ( km_distance / gl_primary . radius ); 
j /★ ★★★★★★★★★★★ function convert canonical dist from km ★/ 

cv_cdisk : convert canonical Distance to Kilometers 
★★★★★★★★★★★★★★ ★ ! 
Dist 

cv_cdisk (canon__distance) 

Dist canon_distance; 

{ 

return ( canon_distance * glj>rimary . radius ); 

} /★ ★★★★★★★★★★★ function convert km from canonical dist ★★★★★★★★★★ ★/ 

cv_ckspd : Convert Km/sec to canonical Speed (magnitude of velocity) 
Real 

cv_ckspd (km_sec ) 

Real km_sec; 

{ 

return ( km_sec / gl_primary . speed ); 

} /★ ★★★★★★★★★★ function get canonical speed from km/sec ********** */ 

cv_cspdk : Convert canonical Speed (magnitude of velocity) to KM/sec 
Real 

cv_cspdk (canon_speed) 

Real canon_speed; 
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return ( canon_speed * gl j>riinary . speed ); 
j /* ************* function get km from canonical dist ************ */ 

j -k ***★*★★**★**★**★★*★★★★★*★*★★*★★★★★★★★★*★★★★**★**★★*★*★★*★★★★*★**★★★*★ 

cv_chtim : Convert seconds to canonical TIMe 

★ *****★**★★★★*★★★★★★*★★★★★★★★★★★*★★★★★★★★★★*★*★★★★★★★★★★****★**★** k j 

Time 

c v_c h t im ( s e c_t ime ) 

T ime s ec_t ime ; 

{ 

return( sec_time / gl_primary .herg ); 
j /* kkkkkkkkkkk function Convert secs to canonical Time ★★★**★**★* ★/ 

j k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk'*^k,. kkkkkkkkkkkkkkkkkkkkkkk 

cv_ctimh ; Convert canonical TIMe to seconds 

k ! 

Time 

c v_ct imh ( canon_t ime ) 

Time canon_time; 

{ 

return ( canon_time * gl_primary .herg ); 

} /* ********** function Convert canonical Time to seconds ******** */ 
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FILENAME 

DESCRIPTION 

ENVIRONMENT 

AUTHOR 

ADVISORS 



REMARKS 

VERSION 



coordsys.c (cs_) 

Coordinate Transformations source file 

Macintosh SE 1Mb RAM 

LightSpeed*™ C v2.15 

Captain Kenneth L. BEUTEL USMC 

Prof. Dan Davis 

Prof. Dan Boger 

Naval Postgraduate School, Monterey CA 
none 

0.9 (3/6/88) 



CHANGES 



3/6/88 Formatted for MacWrite conversion 






#include <stdio . h> 
tinclude <storage.h> 

#include <math.h> 

#include <strings.h> 

/* include the StdLib header file*s typedefs and global variables */ 

#include ” StdLib . h" 



/* Because this is a library no main procedure is allowed or required, 
all function names follow the standard convention : 
cs_adddd - where 

ct is the library name (Coordinate Transformation) 
a is the action that the function performs (such as 
(i) initialize, (g)get, (s)set, and (c) convert) 
dddd is the function's descriptive name */ 



cs_gpqwc : get PQW coordinates from OrbitRec (transformation #1) 

k ! 

void 

cs_gpqwc (theorbit, pqw_pos) 

OrbitType theorbit ; 

PQWCoord *pqw_pos; 

{ 

pqw_pos->x = theorbit . semimajor * 

( cos (theorbit .eccentric_anom) - theorbit . eccentricity ); 
pqw_jpos->y = theorbit . semimajor * sin (theorbit . eccentric_anom) * 

sqrt ( 1.0 - theorbit . eccentricity * theorbit . eccentricity ) 
pqw_pos->z = 0.0;/* by definition */ 

} jk kkkkkkkkkkkkkkkkkkk funCtion get PQW COOrdS k k k k k kk k k k k k kk k k k k kj 
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I ~k ★★★★★★★★★★★'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★if 

cs_gijkc : get UK coordinates from OrbitRec (transformation #2) 

'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k ic j 



void 

cs_gi jkc (theorbit, ijk_pos) 

OrbitType theorbit ; 

IJKCoord *ijkj>os; 

to get pqw first */ 

a., sin_a, cos_i, sin_i; 

/* storage to save transcendental calcs */ 



PQWCoord 

Real 



pqw; 
cos p, 



/ * need 
sin p, cos 



cs_gpqwc (theorbit, &pqw) ; 
cos_p = cos (theorbit . arg_of_perigee) ; 
sin_p = sin (theorbit . arg_ofj>erigee) ; 
cos_a = cos (theorbit . long_of_asc_node) ; 
sin_a = sin (theorbit . long_of_asc_node) ; 
cos_i = cos (theorbit . inclination) ; 
sin_i = sin (theorbit . inclination) ; 

ijk_j)os->x = pqw.x * ( (cos_p*cos_a) - ( sin__p*sin_a*cos__i) ) 

+ pqw.y * ( (-sin_p*cos_a) - (cos_p*sin_a*cos_i) ); 

ijk_pos->y = pqw.x * ( (cos_p*sin_a) + (sin_p*cos_a*cos_i) ) 

+ pqw.y * ( (-sin_p*sin_a) + (cos_p*cos_a*cos_i) ) ; 



ijk_j>os->z = pqw.x * ( sin_j)*sin_i ) 

+ pqw.y * ( cos_p*sin_i ) ; 

function get UK Coords ★***★*★★****★*★*★* ★/ 



cs_gpqwk : get PQW coordinates from UK Coords and Keplerian angles 
void 

cs_gpqwk (theorbit , ijkj>os, pqw_pos) 

OrbitType theorbit; 

IJKCoord ijk_pos; 

PQWCoord *pqw_j:>os; 

{ 

Real cosjp, sin_p, cos_a, sin_a, cos_i, sin_i; 

/* storage to save transcendental calcs */ 



cos_p 
sin_p 
cos_a 
sin_a 
cos_i 
sin i 



cos (theorbit . arg_of_perigee) ; 
sin (theorbit . arg_of_perigee) ; 
cos (theorbit . long_of_asc_node) ; 
sin (theorbit . long_of_asc_node) ; 
cos (theorbit . inclination) ; 
sin (theorbit . inclination) ; 
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pqw_pos->x 




i jk JOS . X 


★ 


( 


(cosj*cos_a) - 


(sin j*sin j*cos_i) ) 




+ 


i jk JOS . y 


★ 


( 


(cosj*sin_a) + 


(sin j*cos j*cos j) ) 




+ 


i jk JOS . z 


★ 


( 


sinj*sin_i ) ; 




pqw_j5os->y 


= 


i jkjos .X 


★ 


( 


(-sinj*cosj) - 


(cos j*sin j*cos_i) 






i jk JOS . y 


★ 


( 


(-sinj*sinj) + 


(cos j*cos_a*cos_i) 




+ 


i jkjos . z 


★ 


( 


cos j*sin_i ) ; 




pqw_pos->z 


= 


i jkjos .X 


★ 


( 


sin_a*sin_i ) 






+ 


i jkjos . y 


★ 


( 


-cosj*sin_i ) 






+ 


i jkjos . z 


★ 


( 


cos j ) ; 





/* z should equal zero for pqw Coords */ 
j /★ ★★★★★★★★★★★★★ function get PQW from Kepler/IJK ★★★★★★★★★★★★★★★ ★/ 



cs_gijks : get UK coordinates from SEZ Coords 

★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ -k j 



void 

cs__gi jks (theorbit^ 
OrbitType 
SEZCoord 
Angle 
Angle 
IJKCoord 

{ 

DateTime 

Real 

Real 

Real 

Angle 



sez_pos^ latitude^ longitude^ ijk^pos) 
theorbit ; 
sez_pos ; 

latitude; /* latitude of the observer */ 

longitude;/* longitude of the observer */ 

*i jk_j5os; 

datetime; /* date time of the observation */ 

cos_El^ sin_El^ cos_Az^ sin_Az; 

/* storage to save transcendental calcs */ 
cos_Lat^ sin_Lat^ cos_Lon^ sin_Lon; 

/* storage to save transcendental calcs */ 
rhoS^ rhoE^ rhoZ; 

/* range expressed in SEZ coordinates */ 
1st; /* local sideral time */ 



cos_El 
sin_El 
cos_Az 
sin Az 



cos ( cv_gangr (sez_pos . elevation) ) ; 
sin( cv_gangr (sez_pos .elevation) ) ; 
cos ( cv_gangr (sez_pos . azimuth) ) ; 
sin ( cv_gangr (sez_pos .azimuth) ) ; 



rhoS = - sez_pos . range * cos_El * cos_Az; 
rhoE = sez_pos . range * cos_El * sin_Az; 
rhoZ = sez_pos . range * sin__El; 



datetime . date = theorbit .date; 
datetime .time = theorbit . epoch; 

1st = tl_glstm (longitude^ datetime) ; 
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cos_Lat = cos ( cv_gangd (latitude) ) ; 
sin__Lat = sin ( cv_gangd (latitude) ) ; 
cos_Lon = cos ( cv__gangd (1st ) ) ; 
sin_Lon = sin ( cv_gangd (1st ) ) ; 



i jk_pos->x 


= 


rhoS 


* 


(sin_Lat*cos_ 


_Lon) 




+ 


rhoE 


* 


(-sin_Lon) 






+ 


rhoZ 


* 


(cos_Lat*cos_ 


_Lon) ; 


i jk_pos->y 


= 


rhoS 


* 


(sin_Lat *sin_ 


_Lon) 




+ 


rhoE 


* 


(cos_Lon) 






+ 


rhoZ 


* 


(cos__Lat *sin_ 


_Lon) ; 


i jk j>os->z 


= 


rhoS 


* 


(-cos_Lat ) 






+ 


rhoZ 


* 


(sin Lat) ; 





j function get UK fE“Oiti S£Z ************** a * ^ ^ */ 



j if. ★★★★★★★★*★★★★★★★★★★**★★★★*★*★**★******★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★* 

cs_gijkr : get UK coordinates from Right Ascension-Declination Coords 
****************************************************************** */ 
void 

cs_gi jkr (theorbit , rad_j30S/ ijk^pos) 

OrbitType theorbit ; 

RADCoord rad_pos; 

UKCoord *ijk_j50S; 

{ 

ijk_pos->x = rad_j5os.r * cos (rad_pos . decl) * cos (rad_j50S . ra) ; 

ijk_pos->y = rad_jpos.r * cos (rad_j50S .decl) * sin (rad_j50S . ra) ; 

ijk_pos->z = rad_pos.r * sin (rad_j)Os . decl) ; 

} /* ******* function get UK Coords from Right Asc-Declin ******** */ 



j if ********************************************************************* 

cs_gradc : get right ascension declination coordinates from UK 

****************************************************************** if j 



void 

cs_gradc (theorbit, 
OrbitType 
UKCoord 
RADCoord 

{ 

Angle 



ijk_pos, rad_pos) 
theorbit; 
i jk_pos ; 
*rad_j3os; 

temp__decl; 



rad_jDOS->r 

rad_pos->ra 



= sqrt (i jk^os . x*i jk_pos .X + i jk j>os . y*i jk_pos . y 
+ i jk_pos . z*i jk_pos . z) ; 

= atan2 (i jk_pos . y, ijk_j50s.x); 
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temp_deci = atan2 (i jk_pos . z, 

sqrt (i jk j>os . x*i jk_pos . X + i jkj)os . y*i jk_j:>os . y) ) ; 
if ( (temp_decl > PI/2,0) && (temp__decl <= PI)) 
temp_decl = PI - temp_decl; 
else if ( (temp_decl > PI) && (temp_decl <= 1.5*PI)) 
temp_decl = PI - temp_decl; 
else if (temp_decl > 1.5*PI) 

temp_decl = temp_decl - 2.0*PI; 



} 



rad_j:)os->decl = temp_decl; 

j -k function qet RiqhtAsc~Decl ****************** */ 



cs__ggeoc : get GEO coordinates from Orbit data 



void 

cs_ggeoc (theorbit, 
OrbitType 
Time 

GEOCoord 

{ 

Real 

Real 

IJKCoord 

DateTime 



since_epoch^ geoj>os ) 
theorbit ; 
since_epoch; 

/* time past epoch in hours 

*geo_pos; 

x_earth^ y_earth, z_earth; 

/* storage for intermediate values */ 

rho, cos_rho, sin_rhO/ r; 

/* storage to save transcendental calcs */ 
ijk; /* need this value to begin */ 

date time; 



cs_gi jkc (theorbit/ &i jk) ; 
datetime .date = theorbit . date; 
datetime . time = since_epoch; 

rho = tl_ggren (datetime) ; /* angle the earth has rotated thru */ 

cos_rho = cos (rho) ; 
sin rho = sin (rho); 



x_earth = ijk.x * cos_rho + ijk.y * sin_rho; 
y_earth = ijk.x * -sin_rho + ijk.y * cos_rho; 
z_earth = ijk.z; 



r = sqrt (x_earth*x_earth + y_earth*y_earth + z_earth*z_earth) ; 

geo_pos->latitude = asin(z_earth / r) ; 
geo_pos->longitude = atan2 (y_earth, x_earth) + PI; 

/* PI/2 is correction to get east long. */ 
geo j)os->altitude = r - gl_primary . radius ; 

} /★ function get GEO Coords ****************** */ 
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cs_gijkg : get UK coordinates from GEO (geocentric) and Orbit 

k ! 

void 

cs_gi jkg (theorbit ^ geo_pos^ ijk_pos) 

OrbitType theorbit ; 

GEOCoord geo_pos; 

IJKCoord *ijk_pos; 

{ 



ijk_pos->x = (geo_pos . altitude + gl_primary . radius ) 

* cos (geo_pos . latitude) * cos (geo__pos . longitude) ; 

ijk_pos->y = (geo_pos . altitude + gl_primary. radius) 

* cos (geo_pos . latitude) * sin (geo_pos . longitude) / 

ijk_pos->z = (geo_pos . altitude + gl_primary . radius ) 

* sin (geo__pos . latitude) ; 

j jk k k k k k k k k k k k k k k k k functiOn get UK frOm GEO ****************** kj 
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/********************************************************************** 



FILENAME 


: kepler.c 




DESCRIPTION 


: iterative Kepler Problem sol'n file 


(gi_) 


ENVIRONMENT 


: Macintosh SE 1Mb RAM 

LightSpeed™ C v2.15 




AUTHOR 


: Captain Kenneth L. BEUTEL USMC 




ADVISORS 


: Prof. Dan Davis 






Prof. Dan Boger 

Naval Postgraduate School, Monterey 


CA 


REMARKS 


: none 




VERSION 


: 0.9 (3/6/88) 




CHANGES 


: 3/6/88 Formatted for MacWrite conversion 



********************************************************************* */ 



#include <stdio . h> 
tinclude <storage.h> 

#include <math.h> 
tinclude <st rings . h> 

/* include the StdLib header file's typedefs and global variables */ 

tinclude "StdLib. h” 

/* Because this is a library no main procedure is allowed or required, 
all function names follow the standard convention : 
gl_adddd - where 

gl is the library name (General Library) 
a is the action that the function performs (such as 
initialize, get, set, and query) 
dddd is the function's descriptive name */ 



/* *************************************** ****************************** 
kl_gecca : approximate eccentric anomaly from mean anomaly and time 
****************************************************************** */ 
Angle 

kl^gecca (theorbit, f rom_epoch) 

OrbitType *theorbit ; 

Time from_epoch; 

{ 

/* Newton iteration method for solving Kepler's Equation : 

En+1 - En + (M - Mn) / (dM/dE) 

Solution from "Fundamentals of Astrodynamics" (Pp. 220-222) 



by Bate, Mueller and White */ 



int 


iter ; 


/* number of iterations accompished 


*/ 


Angle 


en; 


/* approx eccentric anomaly 


*/ 


Angle 


mn; 


/* approx mean anomaly 


*/ 


Angle 


m; 


/* computed (exact) mean anomaly 


*/ 
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m = theorbit->mean_anom + 

gl^^gmean (theorbit->semima jor) * ( f rom_epoch - theorbit->epoch); 

/* M = MO + n (t - tO) */ 

if (m == 0.0) /* by definition */ 

en = theorbit->eccentric__anom; 
else 
{ 

en = PI; /* intial guess normally converges */ 

mn = en; /* mean anomaly init assume as same */ 

iter = 0; 

while ( (abs (m - mn) >GL_EPSILON) && (iter<10) ) 

{ 

iter = iter + 1; 

en = en + (m - mn) / (1.0 - ( theorbit->eccentricity * cos (en) ) ) 

mn = en - (theorbit->eccentricity * sin(en) ); 

) 



theorbit->eccentric_anom = en; 
return ( theorbit->eccentric_anom ) ; 

} /* ************ function approximate eccentric anomaly ********** */ 



j ********************************************************************* 

kl_geccp : get eccentric anomaly from mean anomaly and time 

with first order aspherical gravitational perturbations 
****************************************************************** *y 
Angle 

kl_geccp (theorbit ^ from_epoch) 

OrbitType * theorbit ; 

Time from^epoch; 



/* Use kl_gecca after updating mean anomaly (M) , long of ascending 
node (ASN) and argument of perigee (ARGP) by the formulas: 





M = M 


+ M' 


(t- 


•tO) 






ASN = ASN 


+ ASN' 


(t- 


•tO) 






ARGP = ARGP + ARGP’ 


(t- 


•tO) 




(from 


Smith pp. 


94 ) 






*/ 


Angle 




m; 


/* 


new mean anomaly (M) 


*/ 


Angle 




asn; 


/* 


long of ascending node (ASN) 


*/ 


Angle 




argp; 


/* 


argument of perigee (ARGP) 


*/ 


Angle 




m_chg; 


/* 


rate of change of mean anomaly 


*/ 


Angle 




asn_chg; 


/* 


rate of change of long of ascend 


node*/ 


Angle 




argp_chg; 


/* 


rate of change of argument of perigee*/ 


Dist 




a; 


/* 


semi-major axis 


*/ 


Dist 




psqr; 


/* 


semi parameter squared 


*/ 


Angle 




i; 


/* 


inclination 


*/ 
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Real 

Real 



sin 1 






sinsqr; /* sin i * 

e; /* eccentricity 

a = gl_gorba ( *theorbit ) ; 
e = gl_gorbe (*thecrbit ) ; 
i = cv_gangr (gl_gorbi (*theorbit ) ) ; 
sinsqr = sin(i) * sin(i); 

psqr = gl_gsemi(a, e) ; 
psqr = psqr * psqr; 

m_chg = gl_gmean(a) * 

(1.0 + 1.5 * gl_primary . J2 * sqrt(l-e*e) * (1-1 . 5*sinsqr) / psqr) ; 

asn_chg = -(1.5 * gl_primary . J2 * cos(i) / psqr) * m_chg; 

argp_chg = -(1.5 * gl_primary . J2 * (2.0 - 2.5*sinsqr) / psqr) * m_chg; 



/* Update the orbital elements in place */ 

theorbit->mean_anom = 

theorbit->mean_anom + m_chg * (from_epoch - theorbit->epoch) ; 

/* M = MO + M* (t - tO) */ 

theorbit->long_of_asc_node = 

theorbit->long_of_asc_node + asn_chg * (from_epoch - theorbit->epoch) ; 

/* ASN = ASN + ASN’ (t - tO) */ 

theorbit->arg_of_perigee = 

theorbit->arg_of_perigee + argp_chg * (from_epoch - theorbit->epoch) ; 

/* ARGP = ARGP + ARGP’ (t - tO) */ 

return ( kl_gecca ( *theorbit , from_epoch) ); 
j /* ************ function perturbed eccentric anomaly ********** */ 
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FILENAME 


: t imeLib . c ( t 1_) 


DESCRIPTION 


: Time Calculation StdLib source file 


ENVIRONMENT 


: Macintosh SE 1Mb RAM 

LightSpeed™ C v2 . 15 


AUTHOR 


: Captain Kenneth L. BEUTEL USMC 


ADVISORS 


: Prof. Dan Davis 

Prof. Dan Boger 

Naval Postgraduate School, Monterey CA 


REMARKS 


: none 


VERSION 


: 0.9 (3/6/88) 


CHANGES 


: 3/6/88 Formatted for MacWrite conversion 



★******************************************************************** ★/ 

#include <stdio . h> 

#include <storage . h> 
finclude <math.h> 
tinclude <strings.h> 

/* include the StdLib header file's typedefs and global variables */ 

finclude " StdLib. h” 



/* Because this is a library no main procedure is allowed or required 
all function names follow the standard convention : 

tl_adddd - where tl is the library name (time library) 
a is the action that the function performs (such as 

initialize, get, set, and query) 
dddd is the function's descriptive name */ 

★★★★★★★★★★★★★★★★★★★★★★TtVr********************************************* 

special Notes : Time is considered to be in sidereal radian units 
unless explicitly specified. 

Angular measures are abstracted to remove the 
requirement for unit specifications. 

/* year table is a tabular representation of dates and times 

(ex [pressed as a radian angle) used to approximate Greenwich sidereal 
time by function tl_gknow(). */ 

#define TL_TABLE_SIZE 21 

static Real tl_year_table [TL_TABLE_SIZE] [2 ] = 

{ 

1968.0, 1.74046 , 1969.0, 1.75350 , 1970.0, 1.74933, 



82 



1971.0, 


1.74517 


f 


1972.0, 


1.74106 


r 


1973.0, 


1.75411 


1974.0, 


1-74995 


r 


1975.0, 


1.74577 


r 


1976.0, 


1.74583 


1977.0, 


1.75461 


r 


1978.0, 


1.75042 


f 


1979.0, 


1.74624 


1980 .0, 


1.74208 


f 


L981.0, 


1.75511 


f 


1982.0, 


1.75088 


1983.0, 


6.67192 


t 


1984.0, 


1.74262 


r 


1985.0, 


1.74732 


1986.0, 


1.75149 


r 


1987.0, 


1.74733 


t 


1988.0, 


1.74316 



j -k k'k'kk'k'kkkk'kkk'k'kk'k'kkkk'kk'k'k'k'kk'kk-kk'k'kk'k'kkkk'k'k'k'kkkk'k'k'k'kk'kk'k'k'k'k'k'kk'k'k'k'k'kk'k'k'k 

tl_gzone : get time zone number (hours from GMT) at observer’s longitude 

kkk-kk'k'k-kkkk-k-kk-kk-kkk-kkkkkkk'kkkk-kkk'k-kkk-k-kkkkkkkk'kkkk-kk'kk-kkk'k'k'k-k'k'kk-kk k J 

Real 

tl_gzone (longitude) 

Angle longitude; 

{ /* do the equivalent of modulus */ 

Real x; 

X = cv_gangd (longitude) ; 

for ( ; (x > 360.0) ; x = x - 360.0); 

for ( ; (x < 0.0) ; x = x + 360.0); 

return ( f loor ( x / 15.0) ); 

j k k k k k k k kk k k k k function get time zone *************************** * / 



^ k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

tl_gznam : get time zone name (std abbrev) for given time zone number 
***★★★★★*****★***★★****★***★**★***★**★**★*★★★**★★*★★*★**★★★*•*•****•*• 

char * 

tl^gznam (number ) 

Real number; 

{ 

int the zone; 



thezone = number; /* coerce to integer type */ 

if ( (thezone < 0) 1 | (thezone > 24) ) 

return (”INV,”) ; /* INValid */ 



switch (thezone) 

{ /* No need to break because of return */ 

case 24: 
case 0 : 

return("GMT ”); /* Next 8 std time zones from the U.S. 

Uniform Time Act of 1966 : */ 

case 4 : 

return (” AST ”) ; 
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} 



case 5 : 

return ("EST "); 
case 6 : 

return (”CST ") ; 
case 7 : 

return ( ”MST ” ) ; 
case 8 : 

return (”PST ”) ; 
case 9: 

return ("YST ”); 
case 10: 

return ("AHST”) ; 
case 11: 

return (”BST ”) ; 

default: /* No source for name conventions */ 

return (”????”) ; 



} 

/* function get time zone name 






j k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 



tl_gknow : get known Greenwich sidereal time (rad) from tabulated time 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k J 



Time 

tl_gknow (known_date) 

Real known date; 



Time known_time; 

int i; 

Real dummy, month, day, known_year; 

tl_gmdyr (known_date, &month, &day, &known_year) ; 

if ((month != 1.0) || (day != 1.0)) 

return ( (Time) -1.0 ); /* only Jan 1st dates are tabulated 



*/ 



known_tiii\e = -1.0; /* assume time requested not in table */ 

for (i=0; i<TL_TABLE_SIZE ; i=i+l) 

if (tl_year_table [ i] [ 0 ] == known_year) 

known_time = (Time) tl_year_table [i] [ 1] ; 

} /* get corresponding time for that yr */ 

return ( known_time ) ; 

j /* ********* function get known Greenwich sidereal time ★*★★★★*** */ 



I k ********************************************************************* 

tl_ggren : get Greenwich sidereal time (approx) in radians 
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Angle 

tl_ggren (datetime) 

DateTime datetime; 

{ 

Time known_t ime , approx_t ime ; 

Real dummy, start_year, k.nown_date, num__rotations; 

tl__gmdyr (datetime. date, Sdxjimmy, &dummy, &start__year) ; 
if (start_year < 1955) 

return ( -1.0 ); / * no data on record before 1955 */ 

known_date = tl__g juld ( 1 . 0 , 1 . 0 , start__year) ; 
for ( ; known_date>= datetime . date ; ) 

{ /* scan for 1st rec less than desired */ 

start_year = start_year - 1.0; 
known__date = t l__g juld ( 1 . 0 , 1.0, start_year) ; 

} 

known__time = tl_gknow (known__date) ; 

/* get known time for that date */ 

num_rotations = datetime . date - tl__g juld ( 1 . 0 , 1 . 0 , start__year ) 

+ (datetime . time / 24.0); 

/* per day */ 



approx__time = known__time + 

(Time) (gl_primary . ang__rot * 24.0 * num__rotations) ; 
return ( approx__time ); 

} /★ ★★★★★★★★★★★★★★★ function get Greenwich sidereal time ★★*★★*★**** */ 



tl__glstm : get local sidereal time at observers longitude. 

Angle 

tl__glstm ( longitude, datetime) 

Angle longitude; 

DateTime datetime; 

( 

Real radians_east ; 

radians__east = cv_gangr (longitude) ; 

return ( tl__ggren (datetime) + radians__east ); 

} /★ ★*★★***★★*★★★★ function get local sidereal time ************** */ 



j k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
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tl_gjuld : get julian date (in whole days) . 

****★*****★★******★****************★*******★***★*★★★★*****★***★*★★ -k ! 

Real 

tl_gjuld (month, day, year) 

Real month, day, year; 

{/* Range of data is : 1 <= month <= 12, 1<= day <= 31, 1700 <= year 
This routine is from pp. 19 of ”119 Practical Programs for the 
TRS-80 Pocket Computer” by John Clark Craig, TAB Books (1982) . */ 

Real julian; /* declare result */ 

Real n, z, e, w, x; /* and some temps */ 



julian = floor (365 . 2422*year 4 * 30 . 44* (month-1 . 0 ) + day + 1.0); 
n = month - 2.0 + 12.0 * (month<3.0); 
z = year - (month<3.0); 
e = f loor (z/ 100 . 0 ) ; 
z = z - 100." e; 

w = floor(2.61 * n - 0.2) + day + z + floor(z/4,0) 

+ floor(e/4.0) - 2,0*e; 
w = w - 7.0 * f loor (w/7 . 0) ; 

X = julian - 7.0 * f loor ( julian/7 . 0 ) ; 

julian = julian - x + w - 7.0 * (x<w) + 1721061.0; 

return (julian); 

jk kkkkkkkkkkkkk fjjnction get julian date kkkkkkkkkkkkkkkkkkkkkkk kj 



! k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

tl_gmdyr : get month, day and year from julian date (in whole days) . 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k J 

void 

tl_gmdyr ( julian, month, day, year) 

Real julian; 

Real *month, *day, *year; 

{ 

/* This routine is from pp . 19-20 of ”119 Practical Programs for the 

TRS-80 Pocket Computer” by John Clark Craig, TAB Books (1982) . */ 

Real savejulian; 

/* declare result */ 



savejulian = julian; 

/* solve for year by making a guess and backing into the answer */ 

*year = floor( ( julian-17210 61 . 0 ) / 365.25 + 1.0); 

*month = 1.0; 

*day = 1.0; 

julian = tl_g juld (*month, *day, *year) ; 
for ( ; julian>save julian ; ) 

{ 

*year = *year - 1.0; 

julian = tl_g juld (*month, *day, *year) ; 
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} 

/* now solve for month by making a guess and backing into the answer */ 
*month = floor ( (save julian- julian) / 29.0 + 1.0); 
julian = tl_g juld (*month^ *day^ *year) ; 
for ( ; julian>save julian ; ) 

{ 

*month = *month - 1.0; 

julian = tl_g juld (*month, *day, *year) ; 

} 

/* remainder is the number of days in the month */ 

*day = save julian - julian + 1.0; 

j /* ************* function get month, day, year ****************** */ 



87 



APPENDIX C STANDARD LIBRARY DOCUMENTATION 



This appendix documents the services available from the standard library in a specific 
format. The format used by this appendix is similar to the conventions used in the 
documentation of UNIX commands and system calls. Each function or group of related 
functions that is found in the standard library is described independently on a separate 
page. Various type styles are used in a formal way to differentiate the exact purpose that 
each item of text provides. 

The type style formatting rules include: 

• The use of bold face and capital letters for section headings (e.g., NAME) 

• The use of bold face for function names when they are mentioned inside of a 
body of text (e.g., gl_gangd()) 

• The use of italics to designate parameters to functions when they are 
mentioned inside of a body of text (e.g., dateinpia) 



The format of each documentation page is as follows: 

• A function header which lists the function name and the library it is located 
in. The function name is followed by ellipses if the documentation page is 
for more than one function. 

• A name section consisting of a section header and the name of all functions 
documented by this page 

• A syntax section that lists each function and its associated arguments 

» A description section that describes the duty of each function 

• An optional section that describes the return value, if one exists. 

» An optional section that describes any known (Efficiencies or input cases not 
handled by the documented functions 

• An optional "see also" section that cross references the user to other related 
functions 
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The standard library defines several abstract data types which are used repeatedly by 
these various routines. These values are declared in the header file "StdLib.h” of the 
standard library source code. The principle data structures are: 

used to define an abstract storage representation for angle measures 
used to define an abstract storage representation for length measures 
used to define an abstract storage representation for time measures 
used to represent other floating point numbers not in abstracted fomn 



« Angle 


- used to define an 


• Dist 


- used to define an 


• Time 


- used to define an 


• Real 


- used to represent 


• DateTime 


- used to represent 


• OrbitType 


- used to represent 


• PQWCoord 


- used to represent 


• IJKCoord 


- used to represent 


♦ GEOCoord 


- used to represent 


♦ RADCoord 


- used to represent 


• SEZCoord 


- used to represent 


♦ PrimaryType 


- used to represent 
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gl_idflt 


GENERAL LIBRARY gUdflt 



NAME 


glJdfltO; 


SYNTAX 


#include "StdLib.h" 
void gl_idflt(); 


DESCRIPTION 


this funon-^n initializes the entire standard library 
package with the earth as the default primary body. 


INPUT RESTRICTIONS 


The use of this function is required before any other 
standard library functions are called or anomalous 
results may occur. 
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gLgpnam 


GENERAL LBRARY gLgpnam 



NAME 


gl_gpnam (); 


SYNTAX 


#include "StdLib.h" 
char *gl_gpnam(); 


DESCRIPTION 


this function rehieves the string value that names the 
primary body currently being used. 


RETURN VALUE 


a pointer to a previously allocated C string variable. 


INPUT RESTRICTIONS 


After initialization, the default value returned by this 
function is "Earth". 


SEE ALSO 


glJdfltO; 
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GENERAL LIBRARY 



gLsorbt 



gLsorbt 


GENERAL LIBRARY gLsorbt 


NAME 


gLsorbtO; 


SYNTAX 


#include "StdLib.h" 

void gl_sorbt(char *name. Real a. Real e. Angle i, 

Angle mean_anom. Angle peri, Angle asn, 
Time epoch, Real date, OrbitType *orbrec ); 


DESCRIPTION 


this function takes a standard set of orbit parameters and 
stores them in the orbrec structure in an internal format. 
This function should be used to establish values for all 
orbit records used by the standard library. 


INPUT RESTRICTIONS 


The variables using the abstract data types Angle and 
Real should be set by Conversion Library functions. 


SEE ALSO 


cv_sangd(); 

cv_sangr(); 

cv_cdisk(); 

cv_ckdis(); 

cv_ckspd(); 

cv_cspdk(); 
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gLgorbn... 



GENERAL LIBRARY 



gLgorbn... 



NAME 


gLgorbn 0; 

gl_gorba(); 

gl_gorbe(); 

gl_gorbi(); 

gl_gorbm(); 

gLgorbpO; 

gLgorblQ; 

gl_gorbt(); 


SYNTAX 


#include "StdLib.h" 
char *gl_gorbn (OrbitType orbit); 

Dist *gl_gorba (OrbitType orbit); 

Real *gl_gorbe (OrbitType orbit); 

Angle *gl_gorbi (OrbitType orbit); 
Angle *gl_gorbm (OrbitType orbit); 
Angle *gl_gorbp (OrbitType orbit); 
Angle *gl_gorbl (OrbitType orbit); 
Time *gl_gorbt (OrbitType orbit); 


DESCRIPTION 


these functions return a single orbital element from the 
abstract OrbitType variable orbit. The values returned 
are the orbit name (gl_gorbn), semimajor axis 
(gl_gorba), eccentricity (gl_gorbe), inclination 
(gl_gorbi), mean anomaly (gl_gorbm), argument of 
perigee (gl_gorbp), longitude of the ascending node 
(gl_gorbl), and epoch time (gl_gorbt), respectively. 


RETURN VALUE 


Each of these functions returns a single abstract data 
value. The value returned may then be manipulated via 
the Conversion Library to obtain the desired system of 
units. 


SEE ALSO 


cv_gangd(); 

cv_gangr(); 

cv_cdisk(); 

cv_ckdis(); 

cv_ckspd(); 

cv_cspdk(); 
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gLgrada... 


GENERAL LIBRARY gLgrada... 


NAME 


gLgradaO; 

gl_gradp(); 


SYNTAX 


include "StdLib.h" 

Dist gl_grada(Dist a. Real e); 

Dist gl_gradp(Dist a, Real e); 


DESCRIPTION 


these functions calculate the radius of apogee 
(gl_grada) and radius of perigee (gl_gradp) from an 
orbit's semimajor axis (a) and eccentricity (e). 


RETURN VALUE 


a distance measure that is in the same system of units as 
the semimojor axis,a. 
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GENERAL LffiRARY 



gLgradi 


GENERAL LIBRARY gLgradi 


NAME 


gLgradiO; 


SYNTAX 


#include "StdLib.h” 

Dist gl_gradi(Dist p, Real e, Angle nu); 


DESCRIPTION 


these functions calculate the radial distance to a satellite 
from the orbit's semiparameter (p) eccentricity (e), and 
true anomaly angle {nu). 


RETURN VALUE 


a distance measure that is in the same system of units as 
the semiparameter, p. 


SEE ALSO 


gLgsemiO; 
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gLgtrue 


GENERAL LIBRARY gl_gtrue 


NAME 


gl_true(); 


SYNTAX 


include "StdLib.h" 

Angle gl_true(Dist x, Dist y, Dist p, Real e); 


DESCRIPTION 


this function obtains the true anomaly angle to a satellite 
from its in-plane x and y coordinates {x,yj, 
semiparameter (p), and eccentricity (e). 


RETURN VALUE 


an abstract angular measure that should be accessed via 
the Conversion Library routines. 


INPUT RESTRICTIONS 


the distance measures must all be in the same system of 
units. 


SEE ALSO 


cv_gangd(); 

cv_gangr(); 
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gLgxpos... 


GENERAL LIBRARY gLgxpos... 


NAME 


gLgxposO; 

gLgyposO; 


SYNTAX 


#include "StdLib.h" 

Dist gl_gxpos(Dist p, Real e, Angle nu); 

Dist gl_gypos(Dist p, Real e, Angle nu); 


DESCRIPTION 


these functions obtain the in-plane x and y coordinates 
of the given orbit from the semiparameter ip), 
eccentricity (e) and true anomaly (nu). 


RETURN VALUE 


a distance measure that is in the same system of units as 
the semiparameter,o. 
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gLgsemi 


GENERAL LBRARY gLgsemi 



NAME 


gLgsemiO; 


SYNTAX 


#include "StdLib.h" 

Dist gl_gsemi(Dist a, Real e); 


DESCRIPTION 


this function calculn^'^s a value for the semiparameter 
from the semi- major axis (a) and eccentricity (e). 


RETURN VALUE 


a distance measure that is in the same system of units as 
the semi-major axis (a). 
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gLgmean 


GENERAL LIBRARY gLgmean 



NAME 


gLgmeanO; 


SYNTAX 


#include "StdLib.h" 

Real gl_gmean(Dist a); 


DESCRIPTION 


this function calculates a value of the mean motion 
constant from the semi-major axis, a. 


RETURN VALUE 


a distance measure that is in the same system of units as 
the semi-major axis (a) and the gravitational parameter 
that the system is defined for (initialized for kilometers). 
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gLgperd 


GENERAL LIBRARY gl_gperd 


NAME 


gl_gperd(); 


SYNTAX 


#include "StdLib.h" 

Time gl_gperd(Real n); 


DESCRIPTION 


this function calculates the period of a satellite from the 
mean motion constant {n). 


RETURN VALUE 


a time measure that is in the same system of units as 
the gravitational parameter that the system is defined for 
(initialized for seconds). 


SEE ALSO 


gLgmeanO; 



100 



gLgvelo... 


GENERAL LIBRARY gLgvelo... 


NAME 


gLgveloO; 

gl_gvesc(); 


SYNTAX 


#include "StdLib.h" 

Real gl_gvelo(Dist r, Dist a); 

Real gl_gvesc(Dist r); 


DESCRIPTION 


this function calculates the orbital velocity and the 
escape velocity of a satellite with semi-major axis (a) 
and radial distance (r) from the primary. 


RETURN VALUE 


a speed measure that is in the same system of units as 
the gravitational parameter that the system is defined for 
(initialized for km/seconds). 


SEE ALSO 


gLgradiO; 
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gl-gfltp 


GENERAL LIBRARY gLgfltp 


NAME 


gLgfltpO; 


SYNTAX 


#include "StdLib.h" 

Angle gl_gfltp(Real h, Dist r, Real v); 


DESCRIPTION 


this function calculates the flight path angle of satellite 
at a radial distance (r) from the primary using velocity 
(v) and angular momentum (/i). 


RETURN VALUE 


an abstract angular measure that should be accessed via 
the Conversion Library routines. 


INPUT RESTRICTIONS 


velocity must be specified in the same system of units as 
the gravitational parameter that the system is defined for 
(initialized for km/seconds). 


SEE ALSO 


gLgangmQ; 

gLgradiO; 

gLgveloQ; 
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GENERAL LIBRARY 



gLglosd... 



gLglosd... 



NAME 



SYNTAX 



DESCRIPTION 



RETURN VALUE 



INPUT RESTRICTIONS 



SEE ALSO 



gLglosdO; 

gLggswiO; 



#include "StdLib.h" 

Dist gl_glosd(Dist r. Angle gamma); 

Dist gl_ggswi(Dist r); 



these functions calculate the line of sight distance to the 
horizon and the geometric swath width at a radial 
distance (r). 



an arbitrary distance measure that can be modified via 
the Conversion Library routines. 



the angle gamma should be an acute angle measured 
above the local horizontal. 



gLgradiO; 
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gLgangm 


GENERAL LIBRARY gLgangm 



NAME 


gLgangmO; 


SYNTAX 


#include "StdLib.h" 

Real gl_gangm(Dist a. Real e); 


DESCRIPTION 


this function calculates the magnitude of the angular 
momentum of a satellite at a radial distance (r) from the 
primary. 


SEE ALSO 


gLgradiO; 
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gl_gspen 


GENERAL LIBRARY gLgspen 


NAME 


gLgspenO; 


SYNTAX 


#include "StdLib.h" 

Real gl_gspen(Real v, Dist r); 


DESCRIPTION 


this function calculates the specific energy of a satellite 
moving with velocity (v) at a radial distance (r) from the 
primary. 


INPUT RESTRICTIONS 


speed and distance measures must be in the same 
system of units as the gravitational parameter that the 
system is defined for (initialized for km/seconds). 


SEE ALSO 


gLgveloQ; 

gl_gradi(); 
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tLgzone... 


TIME LIBRARY tLgzone... 


NAME 


tl_gzone(); 

tl_gznam(); 


SYNTAX 


#include "StdLib.h" 

Real tl_gzone(Angle longitude); 

char *d_gznam(Real zonenumber); 


DESCRIPTION 


the function tl_gzone performs a coarse time zone 

calculation for the given longitude. 

when given the zonenumber the function tl_gznam 

will determine the standard abbreviation for that time 

zone. 


RETURN VALUE 


the function tl_gzone() returns the number of the 
time zones (hours) west of the Greenwich meridian. 
This function does not correct for time zone deviations 
from true longitude or daylight savings time, 
the function tl_gznam() returns a pointer to a four 
character string containing the time zone abbreviation. 


INPUT RESTRICTIONS 


the input to tl_g'^one() is an abstract angular measure 
that should be accessed via the Conversion Library 
routines. 

tl_gznam() will accept any numeric value but will only 
produce valid results for real numbers representing the 
integers 1-24. 
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tl_gknow 


TIME LIBRARY tl_gknow 



NAME 


tl_gknow(); 


SYNTAX 


#include "StdLib.h" 

Time tl_gknow(Real known_date); 


DESCRIPTION 


for dates that exist in an internal table this function 
determines the conversion from universal time to 
sidereal time. 


RETURN VALUE 


for valid dates, the difference between the time systems 
is returned, -1 otherwise. 


INPUT RESTRICTIONS 


any Julian date in real format is accepted as input but the 
table may not contain results for that specific date. 
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tLggren... 



TIME LIBRARY 



tLggren... 



NAME 


tl_ggren(); 

tl_glstm(); 


SYNTAX 


#include "StdLib.h" 

Angle tl_ggren(DateTime datetime); 

Angle tl_glstm(Angle longitude, DateTime datetime); 


DESCRIPTION 


the function tl_ggren approximates Greenwich 
Sidereal Time for a given datetime record, 
the function tl_glstm approximates the local sidereal 
time for an observer at longitude east of the Greenwich 
Meridian. 


RETURN VALUE 


an abstract angular measure that should be accessed via 
the Conversion Library routines. 


INPUT RESTRICTIONS 


the datetime structure should contain valid values for 
both time of day and Julian date. 


SEE ALSO 


tl_gknow(); 
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tLgjuld... 



TIME LIBRARY 



tl_gjuld... 



NAME 


tl_gjuld(); 

tl_gmdyr(); 


SYNTAX 


#include "StdLib.h" 

Real tl_gjuld(Real month, Real day. Real year); 

void tl_gjuld(Real Julian, Real *month. Real *day. 

Real *year); 


DESCRIPTION 


a pair of complementary functions that convert between 
Julian date and month, day year date formats. 


RETURN VALUE 


the number of Julian days in real format is returned by 
tl_gjuld. The function tl_gjuld uses pass by 
reference to supply real number representations for the 
month, day, and year. 


INPUT RESTRICTIONS 


if invalid dates are specified in either format the results 
are unpredictable . 
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cv_sangd... 



CONVERSION LIBRARY 



cv_sangd.. 



NAME 


cv_sangd(); 

cv_sangr(); 


SYNTAX 


#include "StdLib.h" 

Angle cv_sangd(Angle degrees); 
Angle cv_sangr(Angle radians); 


DESCRIPTION 


these functions store angle values, specified in degrees 
or radians, in an internal representation. 


RETURN VALUE 


an abstract data representation of the angle specified. 


SEE also 


cv_gangd(); 

cv_gangr(); 



no 



cv_gangd... 



CONVERSION LIBRARY 



cv_gangd.. 



NAME 


cv_gangd(); 

cv_gangr(); 


SYNTAX 


#include "StdLib.h" 

Angle cv_gangd(Angle value); 
Angle cv_gangr(Angle value); 


DESCRIPTION 


these functions return angular representation for angles 
in degrees (cv_gangd) or radians (cv_gangr) from an 
internal value. 


RETURN VALUE 


an angle measured in degrees and radians, respectively. 


SEE ALSO 


cv_sangdQ; 

cv_sangr(); 
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CONVERSION LIBRARY 



cv_gsolt... 



cv_gsolt... 



NAME 



cv_gsolt(); 

cv_gsidt(); 



SYNTAX 

include "StdLib.h" 

Time cv_gsolt(Time value); 

Time cv_gsidt(Time value); 



DESCRIPTION 

this pair of complementary functions convert between 
sideral (cv_gsolt) and solar (cv_gsidt) formats. 



INPUT RESTRICTIONS 

the time values must be in a compatible system of units. 
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cv_cdisk... 


CONVERSION LIBRARY cv.cdisk... 


NAME 


cv_cdisk(); 

cv_ckdisQ; 

cv_cspdk(); 

cv_ckspd(); 

cv_chtim(); 

cv_crimh(); 


SYNTAX 


include "StdLib.h" 

Dist cv_cdisk(Dist canon_distance); 

Dist cv_ckdis(Dist km_distance); 

Real cv_cspdk(Real canon_speed); 

Real cv_ckspd(Real km_sec); 

Time cv_chtim(Time canon_time); 

Time cv_gtimh(Time sec_time); 


DESCRIPTION 


these three pairs of complementary functions convert 
between the metric system of units and canonical units. 
The function cv_cdisk converts from canon jdistance 
to kilometers. 

The function cv_ckdis converts from kmjdistance to 
canonical distance (radii of the primary). 

The function cv_spdk converts from canon_speed to 
kilometers/sec. 

The function cv_ckspd converts from km sec to 
canonical speed (radii per herg). 

The function cv_chtim converts from canon_time 
(hergs) to kilometers. 

The function cv_ctimh converts from sec_time 
(seconds) to canonical time (hergs). 



INPUT RESTRICTIONS 

the values must be in the specified system of units. 
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cs_gpqwc... 



NAME 



SYNTAX 



DESCRIPTION 



RETURN VALUE 



COORDINATE SYSTEM LIBRARY cv_gpqwc.. 



cs_gpqwc(); 

cs_gijkc(); 

cs_gpqwk(); 

cs_gijks(); 

cs_gijkr(); 

cs_gradc(); 

cs_ggeoc(); 

cs_gijkg(); 



#include "StdLib.h" 

void cs_gpqwc(OrbitData orbit, 

PQWCoord *pqw_pos); 

void cs_gijkc(OrbitData orbit, UKCoord *ijk_pos); 

void cs_gpqwk(OrbitData orbit, UKCoord ijk_pos, 

PQWCoord *pqw_pos); 

void cs_gijks(OrbitData orbit, SEZCoord sez_pos. 
Angle lat. Angle Ion, UKCoord *ijk_pos); 
void cs_gijkr(OrbitData orbit, RADCoord rad_pos, 
UKCoord *ijk_pos); 

void cs_radc(OrbitData orbit, UKCoord ijk_pos, 
RADCoord *rad_pos); 
void cs_ggeoc(OrbitData orbit, 

GEOCoord *geo_pos); 

void cs_gijkg(OrbitData orbit, GEOCoord geo_pos, 
UKCoord =*=ijk_pos); 



these functions calculate the position of a satellite from 
tlieorbit in one of several different coordinate systems. 



each function uses pass by reference to supply an 
abstract data representation of position from tlieorbit. 
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kl_gecca... 


KEPLER LIBRARY kl_gecca... 


NAME 


kl_gecca(); 

kl_geccpO; 


SYNTAX 


#include "StdLib.h" 

Angle kl_gecca(OrbitType theorbit. Time frm_epoch); 
Angle kl_geccp(OrbitType theorbit, Time frm_epoch); 


DESCRIPTION 


this function uses an iterative approach to solving the 
Kepler Problem of determining the location of a 
satellite. The satellite is initially located at a position 
provided by theorbit and a new position is requested at 
from_epoch units of time later. 


INPUT RESTRICTIONS 


the from_epoch time value must be in seconds. 
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APPENDIX D 



MACORBITS SOURCE LISTING 



fifndef _MacOrbits_ 
fdefine _MacOrbits_ 



FILENAME 

DESCRIPTION 

ENVIRONMENT 

AUTHOR 

ADVISORS 



REMARKS 

VERSION 



MacOrbits . h 

header file for MacOrbits project 
Macintosh SE 1Mb 
LightSpeed”™ C v2.15 
Captain Kenneth L. BEUTEL USMC 
(Some portions Copyright Think Technologies) 
Prof. Dan Davis 
Prof. Dan Boger 

Naval Postgraduate School^ Monterey CA 
Contains globally used constants/ variables 
0.9 (3/6/88) 



CHANGES 



3/6/88 Formatted for MacWrite conversion 






/ 



/* resource ID * s of windows 


, alerts and dialogs 


*/ 


#def ine 


windowID 


128 




#def ine 


Generic Alert ID 


256 




fdefine 


DirtyFilelD 


257 








/* advise saving changes before quit 


*/ 


fdefine 


AboutAlertID 


258 








/* about Orbits... alert 


*/ 


fdefine 


NewOrbitID 512 










/* define a new orbit... dialog 


*/ 


fdefine 


SetUnitsID 513 










/* measurement units... dialog 


*/ 


fdefine 


TimeStepID 514 










/* set time step... dialog 


*/ 


fdefine 


TraceOrbitID 


515 








/* trace orbit path... dialog 


*/ 


fdefine 


PlotDurationID 


516 








/* position obsever... dialog 


*/ 


fdefine 


Map ID 


600 








/* the map background PICT 


*/ 


fdefine 


GlobelD 


601 
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/* Base address for 3 Globe Piets 






/* resource IDs of menus 



#define applelD 128 
tdefine filelD 129 
tdefine edit ID 130 
#define orbitsID 131 
#define plotID 132 
tdefine windID 133 
tdefine speciallD 134 



/* Menu indices ***** NOTE : these correspond to xxxID - applelD 



#define appleM 0 
tdefine fileM 1 
tdefine editM 2 
tdefine orbitM 3 
tdefine plotM 4 
tdefine windowM 5 
tdefine specialM 6 



/* File Menu items (4^8,11 are dimmed) 



#def ine 


fmNew 


1 


#def ine 


fmOpen 


2 


#def ine 


fmClose 


3 


#def ine 


fmSave 


5 


#def ine 


fmSaveAs 


6 


#def ine 


fmRevert 


7 


#def ine 


fmPageSetUp 


9 


#def ine 


fmPrint 


10 


#def ine 


fmXFER 


12 


#def ine 


fmQuit 


13 












/* Edit menu command indices */ 



#define undoCommand 1 

tdefine cutCommand 3 

tdefine copyCommand 4 

tdefine pasteCommand 5 

tdefine clearCommand 6 



/* Plot 


Menu items 


(3 is dimmed) 


#def ine 


plONE 


1 


#def ine 


plCONT 


2 


#def ine 


plRESET 


4 


#def ine 


plSTOP 


6 



*/ 



/* DirtyFile alert Dialog button numbers */ 

tdefine dlgSave 1 
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#def ine 


dlgDiscard 2 




#def ine 


dlgCancel 


3 







/* Other Important 


Definitions 


*/ 


#def ine 


SBarWidth 


15 










/* Orbital Element 


display box size 


*/ 


#def ine 


BOX_V 


16 






# define 


BOX_H 


68 






#def ine 


INFRONT 


-IL 






#def ine 


NIL 


OL 






#def ine 


OFF 


0 






#def ine 


ON 


1 

/* 5 total windows 


available to user 


*/ 


#def ine 


MAXWINDOWS 5 








#def ine 


MAXGLOBES 3 


/* top(V) left (H) 


and MaxRight 


*/ 


#def ine 


WINDOW_V 


40 






#def ine 


WINDOW_H 


30 






#def ine 


WH_MAX 


455 







#define MAP_TOP 

#define MAP_LEFT 


/* Topleft corner of map 

80 

40 




*/ 


/* Number of degrees of 
#define PIX_LAT 

#define PIX_LON 


latitude and longitude per 
1.143 
1.153 


screen 


pixel 


in Map*/ 


/* Potential coordinate 
#define IJK_COORDS 0 

#def ine PQW_COORDS 1 

#define GEO_COOF05S 2 


systems that window can be 


drawn 


in 


*/ 


/* origin position for 
#define PQW_X 

#define PQW Y 


PQW coord windows 
90 
200 






*/ 



typedef char Str30[30]; /* a shorter string for storage */ 



typedef struct 

{ 



int 


slotnum; 

/* 


current slot 


window occupies 


*/ 


Boolean 


dirty; /* 


has data for 


orbit been changed? 


*/ 


Boolean 


newf ile; 










/* 


source of data is not from disk file 


*/ 
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Boolean textonly; 

/* display data in text (no pics) */ 

int coordinates; 

/* current coord system for window 

Str255 test; 

int lastview; 

/* current view of spinning globe */ 

IJKCoord ijk; /* current UK position */ 

PQWCoord pqw; /* current PQW position */ 

GEOCoord geo; /* current GEO position */ 

IJKCoord last_ijk; /* last IJK position 

PQWCoord last_pqw; /* last PQW position */ 

GEOCoord last_geo; /* last GEO position */ 

OrbitType orbitdata;/* Values for the orbit */ 

} Orbitinfo; 



typedef struct 

{ 

Boolean* changes;/* changes to the Menu items ? */ 

int bar__state; / * Menu bar state 0-off 1-on */ 

Boolean showmap;/* display/hide the map */ 

int std_units;/* metric (0), canonical (1) */ 

double time_comp;/* time compression factor (x:l) */ 

long int elapsed_time; 

/* numTicks ago when last plot was done */ 
long int time; /* Wall clock time in seconds */ 

long int stop_time;/* stop plotting action (min) */ 

Boolean plotting;/* currently computing orbits? */ 

int plot_duration; 

/* plot plONE or plCONT */ 

long int draw__method; 

/* plot (O)dots (1) lines (2)both */ 

Boolean first_plot; 

/* first time in curr plot seq */ 

double draw_incr;/* increment plot every x minutes */ 

Boolean showaxes;/* show axes when plotting */ 

double obs_lat;/* latitude of observer */ 

double obs_lon;/* longitude of observer */ 

} Preferences; 



#endif 
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^•k-k'kic'k-k'kir-k-kic-kir'kicir-kir'k-k'^-kir'kic'k'kic'kic-k'k-kic'kir-k-kic-k-kic'k-k-kiciric'k-k'kic-kir-k'k-k-k-k-k-kirieie'k'kic'k'kit 



FILENAME 


MacOrbits . proto . c 


DESCRIPTION 


: prototypes for functions used in MacOrbits 


ENVIRONMENT 


Macintosh SE 1Mb 
Light Speed™ C v2 . 15 


AUTHOR 


: Captain Kenneth L. BEUTEL USMC 


ADVISORS 


: Prof. Dan Davis 

Prof. Dan Boger 

Naval Postgraduate School, Monterey CA 


REMARKS 


none 


VERSION 


: 0.9 (3/6/88) 


CHANGES 


: 3/6/88 Formatted for MacWrite conversion 



#ifndef _MacOrbitsProto_ 
#define MacOrbitsProto 



/* found in MacOrbits.c */ 

pascal void MO_ResumeProc { ) ; 

int MO_MainEvent ( ) ; 

void MO__SetUpMenus {) ; 

void MO_MenuClick ( long mResult ) ; 

void MO_About () ; 

void MO_MaintainMenus () ; 

void MO_SetUpCursors () ; 

void MO_Init__P references (Preferences ^prefer) / 

void MO_Init_Globes () ; 

/* found in MacOrbits . fm. c */ 

int MO_File(int item, char *theFileName, int *theVRefNum, 

WindowPtr myWindow) ; 

int MO_SaveAs (Str255 *name, int *vRefnum, WindowPtr myWindow ) ; 

int MO_SaveFile (char *name, int vRefNum, WindowPtr myWindow) ; 

int MO__Advise (Str255 *s); 

int MO_NewFile (Str255 *name, int *vRefnum) ; 

int M0_01dFile (Str255 *name,int *vRefnum) ; 

int M0_01dApps (Str255 *name, int *vRefnum) ; 

int MO__CreateFile (Str255 *name, int *vRefnum, int *theRef ) ; 

int MO_WriteFile (int refNum, WindowPtr myWindow); 

int MO_ReadFile ( int refNum, WindowPtr myWindow); 

int MO_ReadLine (char *buffer, int refNum) ; 

void MO_fmNew (WindowPtr *myWindow, int slotnum) ; 

/* found in MacOrbits .map . c */ 

void MO__CreateMap (BitMap *bm, WindowPtr *mapWindow) ; 

void MO__De let eMap (BitMap *bm, WindowPtr *mapWindow) ; 

void MO_D r a wMap (BitMap bm, WindowPtr mapWindow) ; 

int MO LattoPixel (double lat) ; 
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int 



void 

void 

void 

void 

void 

void 

void 

void 



void 

void 

void 

void 

void 

void 

void 



void 

void 

void 

int 



void 

void 

void 

double 

double 

void 

void 

void 

int 

void 

Boolean 

int 

void 

int 

Boolean 

Boolean 

void 

void 

WindowPtr 

void 



MO_LontoPixel (double Ion) ; 

/* found in MacOrbits .menu . c */ 

MO__OrbitsMenu ( int theltem, WindowPtr theWind) ; 

MO_PlotMenu (int theltem) ; 

MO_SetPlotDuration ( ) ; 

MO_WindowMenu (int theltem); 

MO_SpecialMenu (int theltem) ; 

MO__SetUnits () ; 

MO_TimeStep ( ) ; 

MO OrbitTrace () ; 



/* found in MacOrbits . pi . c */ 

MO_TextOnly (Orbit Inf o orbitinfo) ; 

MO_DrawElt (int row^ int col^ char *str) ; 

MO_DrawALL (Orbitinfo orbitinfo^ WindowPtr theWind) ; 

MO_DrawIJK (Orbitinfo orbitinfo^ WindowPtr theWind); 

MO_DrawPQW (Orbit Inf o orbitinfo^ WindowPtr theWind); 

MO_DrawGEO (Orbitinfo orbitinfo^ WindowPtr theWind); 

MO MaintainPlot ( ); 



/* found in MacOrbits .pr . c */ 

MO_CheckPrintHandle () ; 

MO_PageSetUp ( ) ; 

MO_PrintOrbitText (WindowPtr theWind) ; 

MO__HowMany ( ) ; 



/* 


found in 


MacOrbits . ut . c 


*/ 


MO_Wait ( ) ; 








MO_pStrCopy( ) ; /* 


char *pl^ 


char *p2 


*/ 


MO__pStrConcat ( ); /* 


char *pl^ 


char *p2^ char *out 


*/ 


MOjpStr2Nuin(Str255 * 


str) ; 






MO_pStr2Julian (Str255 *str) ; 






MO_Generic ( ) ; / * 


Str255 si 


,Str255 s2 


*/ 



MO_OutlineButton (Rect r, DialogPtr theDialog) ; 

MO_Pause(int x) ; 

MO_trunc (double x) ; 

/* found in MacOrbits . wm. c '^ / 

MO___CreateWindow (WindowPtr *theWind^ int *slotnum) ; 

MO_isNewFilw (WindowPtr theWind) ; 

MO_isDirty (WindowPtr theWind) ; 

MO_SetDirty (WindowPtr theWind^ Boolean thebit) ; 

MO_ours (WindowPtr theWind) ; 

MO_AvailWind ( ) ; 

MO_DuplicWind ( Str255 newname); 

MO__Remove Window (WindowPtr *theWind) ; 

MO^HideWindow (WindowPtr theWind) ; 

MO^First Window 0 ; /* First window used in storage list */ 

MO_UpdateWindow (WindowPtr theWind) ; 
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void MO_GrowWindow (WindowPtr theWind^ Point p) 

void MO_ForceUpdate () ; 

WindowPtr MO_NextWindow (WindowPtr current) ; 

#endif 
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FILENAME 


: MacOrbits. c 


DESCRIPTION 


: main driver program contains main 

event loop 


ENVIRONMENT 


: Macintosh SE 1Mb 

LightSpeed™ C v2 . 15 


AUTHOR 


: Captain Kenneth L. BEUTEL USMC 


ADVISORS 


: Prof. Dan Davis 

Prof. Dan Boger 

Naval Postgraduate School, Monterey CA 


REMARKS 


: Contains Mac specific driver shell 

instructions 


VERSION 


: 0.9 (3/6/88) 


CHANGES 


; 3/6/88 Formatted for MacWrite conversion 






#include 

#include 

#include 

#include 

#include 

tinclude 

linclude 

#include 

#include 

#include 

#include 

#include 

#include 



"QuickDraw . h” 
"MacTypes . h” 
"FontMgr .h” 
"WindowMgr . h” 
"MeniiMgr .h” 
"TextEdit .h” 
"DialogMgr .h" 
"EventMgr . h" 
"DeskMgr . h" 
"FileMgr . h" 
"ToolboxUtil . h" 
"ControlMgr . h" 
"stdio .h" 



#include "Light Speed Disk -.Thesis C frStdLib.h” 

#include "MacOrbits . h" 

#include "MacOrbits .proto .h" 



Preferences 
WindowPtr 
WindowPt r 

Rect 

MenuHandle 

Cursor 

BitMap 

BitMap 



prefer; /* preferences for how things look */ 

myWindow;/* the current window of interest */ 

mapWindow = NIL; 

/* the window that draws world map */ 

dragRect = { 0, 0, 1024, 1024 }; 
myMenus [specialM + 1] ; 
watch; 

map_bm; /* where the original map is drawn */ 

globePics [MAXGLOBES] ; 



Str255 



theFileName ; 
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static int 



theVRefNum; 



MO^ResumeProc : allows user to ”bail-out" to Finder if program bombs. 

pascal void 
MO_ResumeProc () 

{ 

ExitToShell ( ) ; 

j ! if ★★★★★★★★★★★★★★★•*★■*★★★ MO ResumeProc -k j 






main : entry point for this application 



main ( ) 

{ 



InitGraf (&thePort) ; 
InitFonts ( ) ; 

Text Font (systemFont) ; 
TextSize ( 9) ; 

FlushEvents ( everyEvent, 



/* start up QuickDraw 
/* ... the Font Managaer 

/* make the font ->Chicago 
/* in 9 point size 

0 ) ; 





/* 


InitWindows () ; 


/* 


InitMenus ( ) ; 


/* 


TEInit 0 ; 


/* 


InitDialogs (&M0_ 


_ResumeProc) 



clear the Event Queue 
start up the Window Manager 
the Menu Manager 
Text Edit 



InitCursor ( ) ; 
MoreMasters ( ) ; 
MoreMasters ( ) ; 
MoreMasters ( ) ; 
MoreMasters ( ) ; 
MaxApplZone ( ) ; 



/* the Dialog Manager 

/* reset the cursor to the arrow 
/* Create a couple extra blocks 
/* of Master Pointers 



/* create the application heap 



*/ 

*/ 

*/ 

V 

*/ 

*/ 

*/ 

*/ 

*/ 

*/. 

*/ 

*/ 



*/ 



MO_SetUpCursors ( ) ; /* define all cursors used by prog */ 
MO_SetUpMenus ( ) ; /* create the program's menu bar */ 
MO_Init_Preferences (^prefer) / 

/* set up default session values */ 
MO_Init_Globes ( ) ; /* load the globe pictures into mem */ 



gl_idflt(); /* Initialize the StdLibrary */ 

while ( MO_MainEvent ( ) ) 

{ 

/★ everything done in MainEvent */ 

} 

/★ ★★★★★★★★★*★★★**★★★★★★ Main ★/ 
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MO_MainEvent : polls main event loop 

icie-kic-kie-kic-kicicicic'kic-kic'kicic'kic'k'k'k'k'k'k'k'kic-kicicicic-k-k'kicicicicic'kidc'kidcicidcick'k'kicic'k'k'k'kic'k'k-k i( / 



int 

MO_MainEvent () 
{ 

EventRecord 

WindowPtr 

Rect 

Boolean 

char 



my Event ; 

whichWindow; 

r; 

savepref er ; 

chCode; /* Character code from evt rasg 



V 



MO MaintainMenus ( ) ; 


/* 


Check if disable/enable any menu 


*/ 


if (prefer .plotting) 








MO_MaintainPlot () ; 








SystemTask 0 ; 


/* 


Give Time to DA's 


*/ 



if (GetNextEvent (everyEvent, SmyEvent) ) 

{ 

switch (myEvent . what ) 

{ 

case mouseDown: 

switch (FindWindow( myEvent . where ^ SwhichWindow )) 

{ 

case inDesk: 

SysBeep (3) ; 
break; 

case inGoAway: 

if (MO_ours (whichWindow) ) 

if (TrackGoAway ( whichWindow^ myEvent . where) ) 
MO__HideWindow (whichWindow) ; 

break; 

case inMenuBar: 

MO_MenuClick ( MenuSelect (myEvent .where) ) ; 
break; 

case inSysWindow: 

SystemClick( &myEvent, whichWindow ); 
break; 

case inDrag: 

if (MO_ours (whichWindow) ) 

DragWindow( whichWindow, myEvent . where, SdragRect ); 

break; 

case inGrow; 

if (MO_ours (whichWindow) ) 

MO_GrowWindow ( whichWindow, myEvent . where ); 
break; 

case inContent : 
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if (whichWindow == mapWindow) 

; /* Do Nothing */ 

else if (MO_ours (whichWindow) ) 

{ 

if (whichWindow !- FrontWindow ( ) ) 

SelectWindow (whichWindow) ; 
else 

; /* skipit-no valid mousedowns inContent */ 

} 

break; 
default : 

/ 

} /* end switch FindWindow */ 

break; 

case keyDown: 
case autoKey: 

chCode = myEvent .message & charCodeMask; 
if ( (myEvent .modifiers & cmdKey) != 0) 

MO_MenuClick ( MenuKey (chCode) ); 
else 

{ /* no response for non command key evt */ 

} 

break; 

case activateEvt: 

if ( ( (WindowPtr) myEvent .message) == mapWindow) 

; /* Do Nothing */ 

else if ( MO_ours ( (WindowPtr) myEvent .message) ) 

1 

SetPort ( (WindowPtr) myEvent .message) ; 

DrawGrowIcon ( ( (WindowPtr) myEvent .message) ) ; 
if ( myEvent .modifiers & activeFlag ) 

{ /* window is becoming active */ 

/* Save plotting preferences */ 

saveprefer = prefer.plotting; 
prefer .plotting = FALSE; 

MO__UpdateWindow ( (WindowPtr) myEvent .message) ; 
prefer.plotting = saveprefer; 

/* And restore prefernces afterwards */ 

} 

else 

{ /* window is becoming deactive */ 

} 

} 

prefer . changes = TRUE; 
break; 

case updateEvt : 

if (MO_ours ( (WindowPtr ) myEvent .message) ) 

{ 

saveprefer = prefer.plotting; 
prefer.plotting = FALSE; 
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} 



MO_UpdateWindow ( (WindowPtr) myEvent .message) ; 
prefer .plotting = saveprefer; 

} 

else if ( ((WindowPtr) myEvent .message) == mapWindow) 
MO_DrawMap (map_bm^ mapWindow) ; 

break; 
default: ; 

} /* end of case myEvent. what 

} /* end if 

return (TRUE) ; 

jit ★★★★★★★★ ★★★★*★***★ •* jwjQ MainEvent ■***’‘f ^^*****^ 



*/ 

*/ 

*/ 



ji(i(ic'k'kifi(if'k'k'ki(ifii:'ki(ic'k'ki(if'ki(i(i(i(i(i(ici('k'k'k'k'k'k'k'k'k'k'k'k'k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k'k'k 

MO_SetUpMenus : loads menu resources and sets up DA's under Apple menu 
void 

MO_SetUpMenus ( ) 

{ 

int i ; 

myMenus [appleM] = GetMenu (applelD) ; 

AddResMenu ( myMenus [appleM] ^ ^DRVR* ); 

for (i=fileID; i<= (applelD+specialM) ; i=i+l) 
myMenus [i-applelD] = GetMenu(i); 

for ( (i=appleM) ; ( i<=specialM) ; i=i+l ) 

InsertMenu (myMenus [ i ] , 0 ) ; 

DrawMenuBar ( ) ; 

j /★ SetUpMenus ***************’*f^********* ★/ 



MO_MenuClick : processes the menu item or command key equiv. 
void 

MO_MenuClick ( mResult ) 

long mResult; 

{ 

int theltem; 

Str255 DAname; 

WindowPeek wPtr; 

theltem = LoWord( mResult ); 
switch (HiWord (mResult) ) /* the Menu number 
{ 
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/* the about item 



case applelD: 

if (theltem == 
MO_About ( ) ; 

. else 



1 ) 



{ 

Get Item (myMenus [appleM] , theltem, SDAname) ; 
prefer . changes = TRUE; 

/* Flag potential changes to menu 
OpenDeskAcc ( &DAname ) ; 



break; 

case filelD: /* set filename to top orbit window 

MO_File (theltem, (char *) theFileName, 

&theVRefNum, FrontWindow ( ) ) ; 

break; 

case edit ID: 

if (Syst*="^Edit (theItem-1) == 0) 



*/ 









wPtr = (WindowPeek) FrontWindow () ; 
switch (theltem) 

{ 

case cut Command: 
break; 

case copyCommand: 
break; 

case pasteCommand : 
break; 

case clearCommand : 

break; 

default: ; 

} 

} 

break; 

case orbitsID: 

MO_OrbitsMenu (theltem, FrontWindow ( ) ) ; 
break; 

case plotID: - 

MO^PlotMenu (theltem) ; 
break; 

case windID: 

MO_WindowMenu (theltem) ; 
break; 

case speciallD: 

MO_SpecialMenu (theltem) ; 
break; 

} 

HiliteMenu (0) ; 

■k-kic'k'k'k'k'k'k'k'k'k-k'k'k-k'k-k-k'k'k MenuClick '^’k'k'kic'k-k'k'k'k'k-k'k'k'k'k'k'k'k'kic'k'k'k-k-k-k j 
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MO_About : displays author and source statement 



void 

MO_About ( ) 

{ 

Alert ( AboutAlert ID, OL ) ; 

J ! in MO About ★★★★★★★★★★★★★★★★★★★★★★★★★*★★★★** in j 



MO_MaintainMenus : enables/disables menu items based on program state 

★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★***★★★★•*★★**•*★★★★★★★★★★★★★★*★*★★★★ in j 

void 

MO_MaintainMenus ( ) 

{ 

WindowPeek theWindow; 

Orbit Inf o *orbitinf o; 

if ( ! (prefer .changes) ) /* No changes . . . leave */ 

return; 

prefer . changes = FALSE; / * we are making the changes now */ 

/★ ★★★★★★★★★★★★★ Handle check items in menu bar here first */ 

if (prefer .showmap) /* item 2 of Worldmenu is show/hide */ 

{ 

Checkitem (myMenus [windowM] , 1, TRUE) ; 

MO_CreateMap (&map_bm, &mapWindow) ; 

} 

else 

{ 

Checkitem (myMenus [windowM] , 1, FALSE) ; 

MO_DeleteMap ( &map_bm, &mapWindow) ; 

} 



if (prefer . showaxes) /* item 2 

{ 

Checkitem (myMenus [specialM] , 4, 

} 

else 

{ 

Checkitem (myMenus [specialM] , 4, 



} 



of Worldmenu is show/hide 
TRUE) ; 

FALSE) ; 



theWindow = (WindowPeek) FrontWindow ( ) ; 



*/ 
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if 

{ 



/* If it is an orbit window */ 

(MO__ours ( (WindowPtr) theWindow ) ) 

/* clear all old checkmarks */ 

Checkitem (myMenus [orbitM] ^ 1, FALSE); 

Checkitem (myMenus [orbitM] ^ 2, FALSE); 

CheckItem(myMenus [orbitM] , 4, FALSE) ; 

Checkitem (myMenus [orbitM] , 5^ FALSE); 

Checkitem (myMenus [orbitM] ^ 6, FALSE) ; 

orbitinfo = (Orbitinfo *) ( theWindow->ref Con) ; 

if ( orbitinf o->textonly ) 

Checkitem (myMenus [orbitM ] , 1, TRUE) ; 

else 

Checkitem (myMenus [orbitM] ^ 2, TRUE) ; 

if ( orbitinf o->coordinates == IJK_COORDS ) 

Checkitem (myMenus [orbitM ] , 4, TRUE) ; 

else if ( orbitinf o->coordinates == PQW_COORDS ) 

Checkitem (myMenus [orbitM ] , 5, TRUE) ; 
else if ( orbitinf o->coordinates == GEO_COORDS ) 

Checkitem (myMenus [orbitM ] , S, TRUE) ; 



/* 

/* 



**** Handle disabling menus due to lack of any orbit windows here 
**** Initially enable all menu items that the program supports... 



Enableltem ( 
Enableltem ( 
Enableltem ( 
Enableltem ( 
Enableltem ( 
Enableltem ( 
Enableltem ( 



myMenus [fileM] , 
mvMenus [fileM ] , 
myMenus [fileM ] , 
myMenus [fileM] , 
myMenus [fileM ] , 
myMenus [fileM ] , 
myMenus [fileM ] , 



fmNew ) ; 
fmOpen ) ; 
fmClose ) 
fmSave ) ; 
fmSaveAs 
fmRevert 
fmPrint ) 



*/ 



Disableltem( myMenus [editM] , undoCommand ); 
Disableltem( myMenus [editM] , cutCommand ); 
Disableltem( myMenus [editM] , copyCommand ); 
Disableltem( myMenus [editM] , pasteCommand ); 
Disableltem( myMenus [editM] , clearCommand ); 



if ( lMO_AvailWxnd ( ) ) /* There is no room to create */ 

{ /* another orbit record */ 

Disableltem ( myMenus [ fileM] , fmNew ); 

Disableltem ( myMenus [ fileM] , fmOpen ); 

} 

if ( !MO_ours( FrontWindow ( ) )) 

{ /* no open orbit window so must be a DA */ 

Disableltem( myMenus [ fileM] , fmClose ); 

Disableltem( myMenus [ fileM] ^ fmSave ); 
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Disableltem( myMenus [ f ileM] , fmSaveAs ); 

Disableltem( myMenus [fileM] , fmRevert ); 

Disableltem( myMenus [f ileM] ^ fmPrint ); 

Enableltem( myMenus [editM] ^ undoCommand ); 

Enableltem( myMenus [editM] ^ cutCommand ); 

Enableltem( myMenus [editM] , copyCoinmand ); 

Enableltem( myMenus [editM] , pasteCommand ); 

Enableltem( myMenus [editM] ^ clearCommand ) ; 

} 

else if ( MO_isDirty (FrontWindow ( ) ) ) 

if (MO_isNewFile (FrontWindow 0 ) ) 

{ /* source of the orbit is a file */ 

Enableltem( myMenus [ fileM] , fmSave ); 

Enableltem( myMenus [fileM] ^ fmRevert ); 

} 

else /* source of orbit is NEW menu item */ 

{ 

Disableltem( myMenus [fileM] ^ fmSave ); 

Disableltem( myMenus [ fileM] ^ fmRevert ); 

} 

} 

else /* saved unchanges source file */ 

{ 

Disableltem( myMenus [fileM] ^ fmRevert ); 

Disableltem( myMenus [ fileM] , fmSave ); 



if ((!MO_ours( FrontWindow 0) ) && (prefer . bar_state == ON)) 

{ /* there is no open orbit window*/ 

prefer . bar_state = OFF; /* Turn off the Orbit menu */ 

Disableltem( myMenus [orbitM] ^ 0) ; 

/* 0 is the ENTIRE menu disable */ 

DrawMenuBar 0 / /* redraw menu bar */ 

} 

else if ( (M0_ours ( FrontWindow ()) ) && (prefer .bar_state == OFF)) 

{ /* there is atleast one open window */ 

prefer ,bar_state = ON; /* Turn on the Orbit menu */ 

Enableltem( myMenus [orbitM ] , 0) ; 

/* 0 is the ENTIRE menu enable */ 

DrawMenuBar ();/ * redraw menu bar */ 

} 

if (prefer .plotting == TRUE) 

{ /* show plot choice via checkmark */ 

Disableltem( myMenus [plotM ] , plONE ) ; 

Disableltem( myMenus [plotM] , plCONT ); 

Enableltem( myMenus [plotM] , plSTOP ); 

Checkitem (myMenus [plotM] ^ prefer .plot_duration^ TRUE); 
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0 ) 



} 

else 

{ 

if (prefer . time == 



{ 



/* No plotting is already in progress 



Set Item (myMenus [plotM] , plONE, ”\pTimed Plot. . ; 

Set Item (myMenus [plotM] , plCONT, ”\pStart Continuous Plot”) 



} 

else 

{ 



/* This plot is already in progress 



Set Item (myMenus [plotM] , plONE, 
Set Item (myMenus [plotM] , plCONT, 



”\pResume Timed Plot...”); 
”\pResume Continuous Plot”) 



} 

Enableltem( myMenus [plotM] , plONE ); 

Enableltem( myMenus [plotM ] , plCONT ) ; 

Disableltem( myMenus [plotM] , plSTOP ) ; 

Checkitem (myMenus [plotM] , pre-^er . plot_durat ion, FALSE) ; 



'* ***★★* :dr ************* * 



MO MaintainMenus 



*★****★★**★★*★*★*****★* 



|^k^k^k^k■k^k■k^k•k■k■k^k■k^k^k^k'k'k■k■k^k^k^k■k•k■k■k^k^k^k^k^k^k^k■k■k^k^k■k^k■k■kk■k■k^k^k^k^k•k^k^k^k^k^k■k^k■k^k^k^k^k^k■k■k^k^k^k 

MO_SetUpCursors : get handle to all cursors used in program 

kkkkkkkkkk'k'kickk'k'kkk'kickk'kkkk'k-kkkk'k'kk'k-k-k'k'kk'kk-kkkkkk'k'k'k-kk'kkk'k'k-k'k'k-k-kkk k j 

void 

MO_SetUpCursors () 

{ 

CursHandle theCurs ; 

theCurs = GetCursor (watchCursor) ; 
watch = **theCurs; 

J j k kkkkkkkkkkkkkkkkkkkkkk S e tUpCU r S OrS kkkkkkkkkkkkkkkkkkkkkkkkk k j 



jkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

MO_Init_P references : set up default session values 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k j 

void 

MO_Init_Preferences ( prefer ) 

Preferences *prefer; 



prefer->changes = TRUE; /* Initial drawing of menu items */ 
pref er->bar__state = ON; /* Orbit item in menu bar is on */ 
prefer->showmap = FALSE; /* display the map */ 
prefer->std_units = 0; /* metric (0), canonical (1) */ 
prefer->time_comp = 100.0;/* time compression factor (100:1) */ 
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prefer->time = OL; /* 0 seconds of wall clock time */ 
prefer->plotting = FALSE;/* not currently computing orbits */ 
prefer->plot_duration =0; /* arbitrarily defined */ 
prefer->draw_method = 0; /* plot (O)dots (1) lines (2) both */ 
prefer->f irst_plot = TRUE;/* first time into current plot seq */ 
pref er->draw_incr = 10.0;/* increment plot every 10 minutes */ 
prefer->showaxes = TRUE; /* show axes when plotting */ 
prefer->obs_lat =0.0; /* latitude of observer */ 
prefer->obs_lon = 0.0; /* longitude of observer */ 



y * *******■*••*•****■**•*•**•** init Preferences ***■*■**■■*■*■**■•*■**"*■*•*■*■•*•*'*■* */ 



MO__Init_G lobes : load globe pictures into memory 

********************************************************************* *y 
void 

MO Init Globes 0 



PicHandle 

Rect 

int 

GrafPtr 

MO Wait 0 ; 



globeHand; 
tempRect ; 
bmsize^ i; 
tempPort^ savePort; 

/* tell user 



it will take a while 



*/ 



GetPort (SsavePort ) ; /* save existing grafport */ 

tempPort = (GrafPtr) NewPtr (sizeof (Graf Port ) ); 

OpenPort (tempPort ) ; /* does set for special grafport */ 

for (i=0; KMAXGLOBES ; i=i + l) 

{ 

globeHand = GetPicture (GlobelD+i) ; 

/* Get each picture item 
tempRect = ( **globeHand) .picFrame; 

ClipRect (& tempRect ) ; /* avoid bug from Apple TN #59 

PortSize (tempRect . right-tempRect . left ^ 
tempRect .bottom- tempRect .top) ; 

bmsize = 1 + (tempRect . right-tempRect . left ) / 8; 
if ((bmsize % 2) != 0) 

bmsize = bmsize+1; /* an even number of bytes */ 

globePics [i] . rowBytes = bmsize; 

bmsize = bmsize * (tempRect .bottom-tempRect . top) ; 
globePics [i] .baseAddr = NewPtr (bmsize) ; 
globePics [i] .bounds = tempRect; 

SetPortBits ( & (globePics [i] ) ); 



*/ 

*/ 



EraseRect (& tempRect ) ; /* clear the new bitmap and draw */ 

DrawPicture (globeHand^ StempRect ); 
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} 

SetPort (savePort) ; 
ClosePort (tempPort) ; 

InitCursor ( ) ; 

j -k •k-k-k'k-k'k'k'kk'k'kk'k'k'k'kk'k 






/* 


resto 


re old grafport 


* 


/* 


don't 


leave the port around. . . 


* 


/* 


reset 


the cursor 


k 



*** MO Init Globes 



*★****■**■*★★**★★★★*★***** k j 
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FILENAME 

DESCRIPTION 

ENVIRONMENT 

AUTHOR 

ADVISORS 



REMARKS 

VERSION 



MacOrbits . fm. c 

file manager interface for MacOrbits. c 

Macintosh SE 1Mb 

LightSpeed™ C v2.15 

Captain Kenneth L. BEUTEL USMC 

(some portions copyright THINK TECHNOLOGIES™) 

Prof. Dan Davis 

Prof. Dan Boger 

Naval Postgraduate School, Monterey CA 
Contains Mac specific file system 
instructions 
0.9 (3/6/88) 



CHANGES 



3/6/88 Formatted for MacWrite 



★ ★★★★★★★★★★★★★★★ 



conversion 

★ ★★★★★★★★ if j 



#include 

tinclude 

#include 

tinclude 

#include 

#include 

#include 

#include 

#include 

finclude 

tinclude 

#include 

finclude 

#include 



"QuickDraw. h" 
"MacTypes . h" 
"FontMgr . h” 
"WindowMgr . h” 
"MenuMgr . h” 
"TextEdit .h" 
"DialogMgr .h" 
"EventMgr .h" 
"DeskMgr . h" 
"FileMgr . h" 
"ToolboxUtil .h" 
"ControlMgr . h" 
"StdFilePkg.h" 
"stdio.h" 



tinclude "LightSpeed DiskiThesis C frStdLib.h" 

finclude "MacOrbits .h" 
tinclude "MacOrbits .proto .h" 

extern Preferences prefer; t preferences for how things look 
extern MenuHandle myMenus [specialM + 1] ; 



*/ 



MO_File : handles all File menu generated events 

★ ★★★★★★^Ic************************-********-************************** if ! 

int 

MO_File ( item, theFileName, theVRefNum, myWindow) 
int item; 

char *theFileName; 

int ^theVRefNum; 
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WindowPtr 

{ 

int 


myWindow; 




vRef^ refNum, resultCode; 




Str255 


fn; /* text file name 


*/ 


Str255 


windName;/* name of topmost window 


*/ 


Str255 


appname;/* application to transfer to 


*/ 


WindowPtr 


oldWindow;/* saves last window pointed to 


*/ 


int 


slotnum; 





switch (item) 

{ 

case fmNew: 

oldWindow = myWindow; 

MO_CreateWindow (&myWindow^ &slotnum) ; 
if (myWindow != NIL) 

{ 

MO__fmNew ( &myWindow, slotnum ); 

MO^SetDirty (myWindow^ TRUE) ; 

} 

else 

{ 

MO__Generic (*'\pSorry^ max windows already open . ” ^ " \p** ) ; 
myWindow = oldWindow; 

} 

break; 

case fmOpen : 

if (M0_01dFile( &fn, &vRef )) 
if ( lMO__DuplicWind ( f n) ) 

if (FSOpen( &fn^ vRef^ &refNum) ==noErr) 

{ 

MO_CreateWindow (&myWindow^ & slotnum) ; 
if (myWindow != NIL) 

{ 

if (MO_ReadFile ( refNum^ myWindow) ==noErr) 

{ 

*theVRefNum = vRef; 

MO_jpStrCopy (fn^ theFileName) ; 

SetWTitle (myWindow^ theFileName) ; 

Set Item (myMenus [windowM] ^ slotnum + 5^ theFileName) 
EnableItem(myMenus [windowM] ^ slotnum + 5) ; 
ShowWindow ( myWindow ) ; 

} 

} 

else 

{ 

MO_Generic ( " XpSorry^ max windows already open . 

”\p", "\p". "\p") ; 
myWindow = oldWindow; 

} 
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FSClose {refNum) ; 



} 

else 

MO_Generic ( "\pError opening ”, fn ); 

break; 

case fmClose: 

if (MO_isDirty (my Window) ) 

{ 

GetWTitle (myWindow, SwindName) ; 
switch (MO_Advise (SwindName) ) 

{ 

case dlgSave: 

if (MO_isNewFile (myWindow) ) 

{ /* No filename so it is a new window ! 

GetWTitle (myWindow, &fn) ; 
if ( !MO_SaveAs (&fn, &vRef , myWindow) ) 
return (FALSE) ; 

} 

else if ( !MO_SaveFile ( theFileName, *theVRefNum, myWindow )) 
return (FALSE) ; 

MO_RemoveWindow ( &my Window) ; 

/* Only remove window for saved file */ 

break; 

case dlgCancel: 
return (FALSE) ; 
case dlgDiscard: 

MO_RemoveWindow (SmyWindow) ; 
break; 

} 

} 

else 

{ 

MO_RemoveWindow (&myWindow) ; 

} 

break; 

case fmSave: 

if ( !MO_isNewFile (myWindow) ) 

MO_SaveFile (theFileName, *theVRefNum, myWindow); 
else /* Not from an old file */ 

{ 

GetWTitle (myWindow, &fn) ; 
if (MO_SaveAs ( &fn, &vRef , myWindow ) ) 

*theVRefNum = vRef; 

} 

break; 

case fmSaveAs : 

GetWTitle (myWindow, &fn) ; 
if (MO_SaveAs ( &fn, &vRef , myWindow ) ) 

*theVRefNum = vRef; 

break; 
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case fmRevert : 

if ( ( !MO_isNewFile (myWindow) ) 

&& (FSOpen ( StheFileName/ *theVRefNum^ &refNum) == noErr) ) 

{ 

MO_SetDirty (myWindow, !MO_ReadFile ( refNiim, myWindow) ); 

FSClose (refNum) ; 

} 

ShowWindow( myWindow ); 

MO_UpdateWindow ( myWindow ) ; 
break; 

case fmPageSetUp: 

MO_PageSetUp ( ) ; 
break; 

case fmPrint: 

MO_PrintOrbitText (myWindow) ; 
break; 

case fmXFER: ^ get names of all open windows */ 

while (MO_FirstWindow ( ) != NIL) 

{ /* recursive call to close files */ 

SelectWindow (MO_FirstWindow ( ) ) ; 

MO_File (fmClose, theFileName, &*theVRefNum, MO_FirstWindow ( ) ); 

} 

if (MO_FirstWindow() == NIL) 

if ( M0_01dApps ( &appname, &vRef ) ) 

{ 

SetVol (”\p", vRef ) ; 

/* make appl . volume the curr one */ 

Launch (OL, appname) ; 

/* and launch the app */ 

} 

break; 

case fmQuit: /* get filenames of all open windows */ 

while (MO_FirstWindow ( ) != NIL) 

{ /* recursive call to close files */ 

SelectWindow (MO_FirstWindow ( ) ) ; 

MO_File (fmClose, theFileName, & *theVRefNum, MO_FirstWindow ( ) ); 

} 

if (MO_FirstWindow 0 == NIL) 

ExitToShell 0 ; 

break; 

} 

return (TRUE) ; 

/★ ★*★★★★★★★★★★***★★★★★★ J4Q Pile ★*★★★*★★★★★★★★★**★★★★★★★★★★★★★★★ ★/ 



MO_SaveAs : handles save as for topmost window 
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int 

MO_SaveAs ( name^ vRefrmm, my Window ) 

Str255 *name; 

int *vRefnum; 

WindowPtr myWindow; 

{ 

Orbit Info *orbitinf o; 

int refNum; 

orbitinfo = (Orbitinfo *) (( (WindowPeek) (myWindow) ) ->refCon) ; 

if (MO_NewFile (&*name^ &*vRefnum) ) 

if (MO__CreateFile (&*name^ &*vRefnum^ &refNum) ) 

{ 

MO_pStrCopy ( *name, orbitinf o->orbitdata . name) ; 

SetWTitle (myWindow^ orbitinf o->orbitdata . name) / 

Setitem (myMenus [windowM ] , 

(orbitinf o->slotnum) + 5^ orbitinfo->orbitdata .name) ; 

MO_WriteFile ( refNum^ myWindow ) ; 

FSClose ( refNum ) ; 

MO_SetDirty (myWindow^ FALSE) ; 
return (TRUE) ; 

} 

else 

{ 

MO_Generic ( ”\pError creating file name) ; 
return (FALSE) ; 

} 



! -k Save As ****************************** ★/ 



/***★*******★★★★***★★*★★*★**★★*★★**★★★★★★****★*★★★★***★★******★★**★*★ 
MO_SaveFile : handles save of topmost window 

****★***★*★**★★*★★****★*★★★**★★****★★★★********★*★*★★★★★*★★*★***■*■ A' 'k j 

int 

MO_SaveFile ( name^ vRefNum^ myWindow ) 
char *name; 

int vRefNum; 

WindowPtr myWindow; 

{ 

int refNum; 

if (FSOpen ( &*name, vRefNum^ &refNum )==noErr) 

{ 

MO_WriteFile ( refNum^ myWindow ) ; 

MO_SetDirty (myWindow^ FALSE); 

FSClose ( refNum ) ; 
return (TRUE) ; 
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else 



MO_Generic ( ”\pError opening file name); 
return (FALSE) / 



y* 'k'k-k'k-k-k-k-k-k'k-k-k'k-k-k-k-k'k-k-k'k SaVeFlle **************************** 



^icificicicificicificicifificificicifificifificificicificicicicicififificificiKificicific'k'k'k-k'k'k-kic'k-kic'k'k'kic'k-k'k-K-k'k'k'k'k 

MO^Advise : std Save, Discard^ Cancel choices in a dialog box 
int 

MO_Advise ( filename ) 

Str255 ^filename; 

{ 

ParamText (^filename, ”\p”, "\p", "\p”) ; 
return ( CautionAlert (DirtyFilelD, OL) ); 

J ^ -k •k'k-k-k-k-k-k-k'k-k-k'kic-k-k-k'k-k-k'k J40 Ad V Ise '^'k-k'kk'k'k'k'k'k'k'k'k'kit'k-k-k-k'k-k'k-k'k'k-k'k'k'k-k'k'k'k k j 



jkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

MO_NewFiJ.e : gets name and volume information for new document 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k j 

int 

MO_NewFile ( name, vRefnum ) 

Str255 *name; 

int *vRefnum; 



SFPutFile (SFPwhere, ”\p”, name, OL, &MO_reply) ; 
if (MO_reply .good) 

{ 

MO_pStrCopy (MO_reply . fName, &*name) ; 

*vRefnum = MO_reply . vRefNum; 
return (TRUE) ; 

} 

else 

return (FALSE) ; 

j k kkkkkkkkkkkkkkkkkkkkk J 40 Me WF He 'k'kkkkkkkkkkkkkkkkkkkkkkkkkkkk k j 



jkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

MO_OldFile : gets name and volume information for existing document 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k j 



Static Point 
static SFReply 



SFPwhere = { 106, 104 ); 
MO_reply; 
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int 

MO OldFile ( name^ vRefnuin ) 



Str255 

int 



*name; 

*vRefnum; 



SFTypeList 
static SFReply 
static Point 



myTypes; 

MO__repiy ; 

SFGwhere = { 90, 82 }; 



myTypes [ 0 ] = * ORBT * ; 

SFGetFile ( SFGwhere, ”\p”f OL, 1, myTypes, OL, &MO_repiy ); 
if (MO__reply .good) 

{ 

MO_pStrCopy ( MO__reply . fName, name ) ; 

*vRefnum = MO__reply . vRefNum; 
return (TRUE) / 

} 

else 

return (FALSE) ; 

j ± icic-k-kic'k'k-k'k'k'k'k'k'kic-k-k'k-k'k-k OldFile ****************************** */ 



M0__01dApps : gets name and volume information for existing application 
****************************************************************** ★/ 
int 

M0_01dApps ( name, vRefnum ) 

Str255 *name; 

int * vRefnum; 



myTypes [0] = *APPL* ; 

SFGetFile ( SFGwhere, "\p", OL, 1, myTypes, OL, &MO__reply ); 
if (MO_reply .good) 

{ 

MO__pStrCopy ( MO_reply . fName, name ); 

*vRefnum = MO_reply . vRefNum; 
return (TRUE) ; 

} 

else 

return (FALSE) ; 

} /* ********************* oidApps ***************************** */ 



/★**★*★*★*****************•*★★★★★★★★★★★★★★*★★★**★★★★★★★★★**★★*★*★★★★*★* 



SFTypeList 
static SFReply 
static Point 



myTypes; 

MO_reply ; 

SFGwhere = { 90, 82 }; 



141 



MO_CreateFile ; handles creation of a new file 
int 

MO_CreateFile ( name, vRefnum, theRef ) 

Str255 *name; 

int *vRefnum; 

int *theRef; 

{ 

int resultCode; /* i/o result code */ 

resultCode=Create (name^ *vRefnum, '????'^ *ORBT*); 
if ( (resultCode==noErr) | | ( resultCode==dupFNErr) ) 

resultCode = FSOpen ( name^ *vRefnum, theRef ); 

return( ( resultCode==noErr) || (resultCode=dupFNErr) )/ 

J j ~k -k -k -k -k -k -k -k -k -k -k -k -k ic -k -k -k -k -k -k -k JyJQ CreateFlle ************************** ★/ 



^k'kk'k'k'kic'k'k'kk'k'k'k'k'kkic'k'kk'kkk'k'k'k-k'kk'k'k'k'k'k'k'kk'k'k'kkk'kk'k'kkk'kk-k'kkk'kkk'kkk'kick'k'kk'k 



MO_WriteFile : handles writing data into a file 

k-kkk-k'kk’k-k-kkk'kk'k'k'kk-k'kk'k'kk'k'k'k'kkkie-k'k'k'kk'kif'kie'kkk'k'kie'kkk-kkkic'k-kic'kk'k'kkk'kkk-k k j 



int 

MO_WriteFile ( 
int 

WindowPtr 

{ 

long 

char 

Orbitinf o 
int 



refNum, myWindow ) 
refNum; 
myWindow; 

num; 

buffer [80] , temp [80] / 

*orbitinf o; 

resultCode;/* input output return code 



*/ 



orbitinfo = (Orbitinfo *) (( (WindowPeek) (myWindow) ) ->refCon) ; 



MO_pStrCopy (gl_gorbn (orbitinf o->orbitdata ) , temp) ; 
PtoCstr (&temp) ; 

sprintf (buffer, "%s\n", temp ); 
num = strlen (buf f er) ; 

resultCode = FSWrite ( refNum, &num, buffer ) ; 



sprintf (buf fer, ”Semi-major: %G\n”, gl_gorba (orbit inf o->orbitdata) ) ; 
num = strlen (buffer) ; 

resultCode = FSWrite ( refNum, &num, buffer ) ; 

sprintf (buffer, "Eccentricity: %G\n”, gl_gorbe (orbitinf o->orbitdata) ) 
num = strlen (buf fer) ; 

resultCode = FSWrite ( refNum, &num, buffer ); 



sprintf (buf fer, "Inclination: %G\n”, 

cv_gangd (gl_gorbi (orbitinf o->orbitdata) ) ) ; 
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num = strlen (buffer) ; 

resultCode = FSWrite ( refNum^ &nuin^ buffer ); 

sprintf (buffer, "Mean Anomaly: %G\n”, 

cv__gangd (gl_gorbm(orbitinfo->orbitdata) ) ) ; 

num = strlen (buffer) / 

resultCode = FSWrite ( refNum, &num, buffer ); 

sprintf (buffer, "Arg of Peri: %G\n”, 

cv_gangd (gl_gorbp (orbitinf o->orbitdata) ) ) ; 

num = strlen (buffer) ; 

resultCode = FSWrite ( refNum, &num, buffer ); 

sprintf (buffer, "Long of ASN : %G\n", 

cv_gangd (gl_gorbl (orbitinf o->orbitdata) ) ) ; 

num = strlen (buffer) ; 

resultCode = FSWrite ( refNum, &num, buffer ); 

sprintf (buffer, "Epoch: %G\n", gl_gorbt (orbitinf o->orbitdata) ); 
num = strlen (buff er) / 

resultCode = FSWrite ( refNum, &num, buffer ) ; 

sprintf (buffer, "Julian Date: %G\n", (orbitinf o->orbitdata) .date )/ 
num = strlen (buffer) ; 

resultCode = FSWrite ( refNum, &num, buffer ); 
j -k ********************* jkfjQ WriteFile ****************************** 



/***★**********★******★★**★★★*★****★★★*★****★*★**★★******★★*★****★★★★ 



MO_ReadFile : handles reading data from a file 
************************************************** **************** ★/ 



int 

MO_ReadFile ( 


refNum, my Window) 


int 


refNum; 


WindowPtr 

{ 

char 


my Window ; 


buffer [80] ; 


char 


orbname [80] ; 


int 


resultCode; 


Real 


e, date; 


Dist 


a; 


Angle 


i, mean, peri 


Time 


t ime ; 


char 


temp [30] ; 


Orbitinf o 


*orbitinf o; 



long_asn; 



resultCode = MO_ReadLine ( buffer, refNum) ; 

if (resultCode==noErr) /* get orbit name */ 

sscanf (buffer, "%s", orbname) ; 
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resultCode = MO_ReadLine ( buffer^ refNum) ; 

if (resultCode==noErr) /* get orbit semimajor axis */ 

sscanf (buffer^ ”%*s %1G”^ &a) ; 

resultCode = MO_ReadLine ( buffer, refNum) ; 

if (resultCode==noErr) /* get orbit eccentricity */ 

sscanf (buffer, ”%*s %1G”, &e) ; 

resultCode = MO_ReadLine ( buffer, refNum); 

if ( resultCode==noErr) /* get orbit inclination */ 

sscanf (buffer, ”%*s %1G", &i) ; 

resultCode = MO_ReadLine ( buffer, refNum); 

if (resultCode==noErr) /* get orbit mean anomaly ! 

sscanf (buffer, ”%*s %*s %1G”, &mean) ; 



resultCode = MO_ReadLine ( buffer, refNum); 

if (resultCode==noErr) /* get orbit argument of perigee */ 

sscanf (buffer, ”%*s %*s %*s %1G”, &peri) ; 

resultCode = MO_ReadLine ( buffer, refNum); 

if (resultCode==noErr) /* get orbit longitude of ASN */ 

sscanf (buffer, ”%*s %*s %*s %1G”, &long_asn) ; 

resultCode = MO_ReadLine ( buffer, refNum); 

if (resultCode-=noErr) /* get orbit epoch time */ 

sscanf (buffer, "%*s %1G", &time) ; 



resultCode = MO_ReadLine ( buffer, refNum) ; 

if (resultCode==noErr) /* get orbit epoch date */ 

sscanf (buffer, ”%*s %*s %1G”, &date) ; 



if 



} 



( resultCode==noErr ) 

orbitinfo = (Orbitlnfo *) (( (WindowPeek) (myWindow))->refCon); 

gl_sorbt (orbname, a, e, cv_sangd(i), cv_sangd (mean) , cv_sangd (peri) , 
cv_sangd (long_asn) , time, date, & (orbitinf o->orbitdata) ); 
orbitinf o->newf ile = FALSE; 

/* file is an old file from disk */ 



return ( resultCode==eofErr ); 

/★ ReadFile **************************** */ 



l-k'k'k-k-k-k'k'k-k-k-k'k^c-k-k'k-ki^-k'k'k'k'k'kii'k-k'k'k'kii-k-k-k'fii-k-k-kii'k-k-kii-k-k'k-k-kii'k-k-k-k-k'k-k-k'k'k'k-k-k-k-k'k-k-k-k 

MO_ReadLine : handles reading a line of data from a file 
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int 

MO__ReadLine (buffer^ 
char 
int 

{ 

long 
char 
long 
char 
int 

buffer_pos = 0; 
do 

count = 1 ; 

resultCode = FSRead ( refNum^ &count, &singlechar ); 
if (resultCode 1= noErr) 

{ 

sprintf (errormsg, ”Sorry^ an ioError = &d"/ resultCode); 
CtoPstr (Serrormsg) ; 

MO_Generic (errormsg, " \pOccurred” ) ; 
return (resultCode) ; 

} 

buffer [buffer_pos ] = singlechar; 
buffer_pos = buffer_pos + 1; 

) while ( (buf fer_pos < 80) && (buffer [buffer_pos-l] 1= *\n^)); 

buffer [buff er_pos-l] = *\0’; 

/* delimit end of string */ 

return (resultCode) ; 

j j 'k ★★★★★★★★★★★★★★★★★★★★★ MO ReadLine **************************** */ 



refNum) 

*buf fer ; 
refNum; 

buf f er_pos ; 
singlechar; 
count; 

errormsg [30 ] ; 
resultCode; 



/★★****************************************************************** 
MO_fmNew : Via dialog get the info to setup a new orbit 
****************************************************************** ★/ 
void 

MO_fmNew( myWindow, slotnum) 

WindowPtr *myWindow; 

int slotnum; 



{ 

DialogPtr myDialog; 

Boolean 

int 

int 

Rect 

Handle 

Handle 

Str255 



not_complete ; 
itemhit ; 
dummy ; 

rect, button__rect ; 

OK_button, item_a, item_e, item_name, item_i, item_m; 
item_peri, item_long, item_time, item_date, item_units; 
str ; 
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Orbitinf o 

Real 

Str255 



*orbitinf o ; 

a, mean, peri, long_asn, time, date; 

orbname; 



orbitinfo = (Orbitinfo *) (( (WindowPeek) ( *myWindow) ) ->ref Con) ; 

myDialog = GetNewDialog (NewOrbitID, NIL, INFRONT); 



GetDItem (myDialog, 
GetDItem (myDialog, 
GetDItem (myDialog, 
GetDItem (myDialog, 
GetDItem (myDialog, 
GetDItem (myDialog, 
GetDItem (myDialog, 
GetDItem (myDialog, 
GetDItem (myDialog, 
GetDItem (myDialog, 
if (prefer . std_units 
{ 

GetDItem (myDialog, 
SetIText (item_unit 
GetDItem (myDialog, 
SetIText (item unit 



1, 


& dummy. 


&OK_button, &button_rect ) ; 


3, 


& dummy. 


&item__name, &rect) ; 


4, 


& dummy , 


&item a, &rect) ; 


5, 


& dummy. 


&item_e, &rect) ; 


10, 


& dummy. 


&item_i, &rect) ; 


27, 


& dummy. 


&item m, &rect) ; 


12, 


& dummy. 


&item_peri, &rect) ; 


14, 


& dummy , 


&item_long, &rect) ; 


16, 


& dummy. 


&item_time, &rect) ; 


24, 


& dummy. 


&item_date, &rect) ; 



== 1 ) 
/* 



/* Use canonical units 
(default is Metric Units) 



22, &dummy, &item_units, &rect) ; 
s, "\p (hergs) ") ; 

17, Sdummy, &item_units, &rect) ; 
s, ”\p (Earth radii)”); 



SellText (myDialog, 3, 0, 999); 
not_complete = TRUE; 
itemhit = 0; 

MO_OutlineButton ( button_rect, myDialog ); 



*/ 

*/ 



while ( (not_complete==TRUE) && (itemhit ! =2 ) ) 

{ 

do 

{ 

ModalDialog (NIL, Sitemhit) ; 

} while ((itemhit != 1) && (itemhit != 2) ) ; 

/* OK or Cancel Button '*'/ 

if (itemhit == 1) /* OK Button ->check results */ 

{ 

GetIText (item_name, & (orbname) ); 

GetIText (item_a, &str) ; 

a = MO_jDStr2Num ( &str) ; 

GetIText (item_e, &str) ; 

e = MO_jpStr2Num(&str) ; 

GetIText (item_i, &str) ; 

i = MO_pStr2Num(&str) ; 

GetIText (item_m, &str) ; 

mean = MO_jDStr2Num (&str) ; 

GetIText (item_peri, &str) ; 

peri = MO__pStr2Num ( &str) ; 

GetIText (item_long, &str) ; 
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long_asn = M0_pStr2Num (&str ) ; 

GetIText (item_time, &str) ; 

time = M0_pStr2Num (&str) ; 

GetIText (item__date, &str) ; 

date = M0_pStr2 Julian (&str) ; 

/* check if the values are valid */ 

if (orbname[0] != 0) 
if (a >= 0) 
if (e >= 0) 
if (i >= 0) 

{ 

not_complete = FALSE; 
if (prefer . std_units == 1) 

{ /* convert from canonical units */ 

a = a * 6378.6; 

} 

gl_sorbt (orbname, a^ e^ cv_sangd(i), cv_sangd (mean) , 
cv_sangd (peri) , cv_sangd (long__asn) , time, 
date, & (orbitinfo->orbitdata) ) ; 

} 

if (not_complete) 

SysBeep (3) ; 

if (MO_DuplicWind (orbname) ) 
not_complete = TRUE; 

} 

} 

DisposDialog (myDialog) ; 

if (not_complete == FALSE) /* it is complete so add the window */ 

{ 

SetWTitie( *myWindow, orbit inf o->orbitdata . name) ; 

ShowWindow ( *myWindow ) ; 

Set Item (myMenus [windowM] , slotnum + 5, orbit inf o->orbitdata . name) ; 
Enableltem (myMenus [windowM] , slotnum + 5); 

} 

else /* not complete so remove the window */ 

{ 

MO_RemoveWindow ( &*myWindow ); 

} 

★★★★*★★★★★★★★★★*★*★★★★★ jwjo fmNew ★/ 



/* end if OK Button */ 

/* endwhile not complete */ 
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^itififitififiticizicicicic'kicicicicizicicicic'kicicicicicicicicic'kicic'k'k'k'kic'k'k'k'kic'k'k'k'k-k-k-k-k'k-k-k'k'k'k-k'k'k'k'kic'k'kic'k 



FILENAME 

DESCRIPTION 

ENVIRONMENT 

AUTHOR 

ADVISORS 



REMARKS 

VERSION 



MacOrbits .map .c 

handles setup & drawing of cartesian map 

Macintosh SE 1Mb 

LightSpeed™ C v2.15 

Captain Kenneth L. BEUTEL USMC 

Prof. Dan Davis 

Prof. Dan Boger 

Naval Postgraduate School, Monterey CA 
Contains Mac specific drawing commands 
0.9 (3/6/88) 



CHANGES 



3/6/88 Formatted for MacWrite 






conversion 

•k-k'k'k'k'k'k'k'k -k j 



#in'^] ’'ie 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
finclude 



"QuickDraw .h” 
"MacTypes . h" 
"FontMgr .h" 
"WindowMgr .h” 
"MenuMgr . h" 
"TextEdit .h" 
"DialogMgr .h" 
"EventMgr .h" 
"DeskMgr . h" 
"FileMgr .h" 
"ToolboxUtil . h" 
"ControlMgr . h" 
"stdio.h" 



#include "LightSpeed DiskiThesis C fiStdLib.h" 

#include "MacOrbits .h" 

#include "MacOrbits .proto .h" 

extern Preferences prefer; /* preferences for how things look 



*/ 



|•k^k^k•k^k^k•k•k^k^k^k•k^k'k^k'k^k■k'k•k'k'k^k■k'kk•k^k^kk'k^k•k^k^k•k^k^k'k'kk'k'k^k'k'k^k^k^k'k•k'k'k^k^k'k^k^k'k'k^k•k'kk^k^kk•k 

MO_CreateMap : get bitmap of picture for "stamping" on screen later 

★ ★★★*★*★*****★***********★********.«*************************★★**** -k j 

void 

MO_CreateMap (bm, mapWindow) 

BitMap *bm; 

WindowPtr *mapWindow; 

{ 

GrafPtr mapPort; 

GrafPtr savePort; 

PicHandle mapHandle; 

Rect tempRect ; 
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int bmsize; /* bit map size */ 

if (*mapWindow != NIL) 

return; /* done - A map window already exists */ 

MO_Wait(); /* tell user it will take a while */ 

GetPort (&savePort ) ; 

mapHandle = GetPicture (MapID) ; 

/* First get the picture drawn */ 

mapPort = (GrafPtr) NewPt r ( sizeof (GrafPort ) ); 

OpenPort (mapPort ) ; /* does set for special grafport */ 



tempRect = (**mapHandle).picFrame; 

ClipRect (StempRect ) ; /* avoid bug from Apple TN #59 */ 

PortSize (tempRect . right-tempRect . left ^ tempRect .bottom-tempRect . top) ; 

bmsize = 1 + (tempRect . right-tempRect . left ) / 8; 
if ((bmsize % 2) != 0) 

bmsize = bmsize+1; /* an even number of bytes */ 

(*bm) .rowBytes = bmsize; 

bmsize = bmsize * (tempRect .bottom- tempRect .top) ; 

(*bm) .baseAddr = NewPtr (bmsize) ; 

(*bm) .bounds = tempRect; 

SetPortBits (&*bm) ; 



EraseRect (& tempRect ) ; 


/* clear the new bitmap and draw 


*/ 


DrawPicture (mapHandle^ 


&tempRect ) ; 




SetPort (savePort) ; 


/* restore old grafport 


*/ 


ClosePort (mapPort) ; 


/* don't leave the port around... 


*/ 


*mapWindow = GetNewWindow (MapID^ NIL^ NIL); 




InitCursor ( ) ; 


/* reset the cursor 


*/ 



j ! 'k *********************** CreateMap *************************** */ 



/******************************************************************** 
MO__DeleteMap : deallocate bitmap and window to free memory 

****************************************************************** *y 

void 

MO_DeleteMap (bm, mapWindow) 

BitMap *bm; 

WindowPtr *mapWindow; 



GrafPtr 

Rect 



savePort ; 
tempRect; 
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int 



bmsize; /* bit map size 



if ( '*'mapWindow 
return ; 



NIL) 

/* No map window exists 



*/ 



DisposPtr( (*bm) .baseAddr ); 
(*bm) .baseAddr = NIL; 

(*bm) . rowBytes = 0; 



DisposeWindow ( *mapWindow ); 

^mapWindow = NIL; 

j -k k k k k k k k k k k k k k ~k k k k k k k k k DeleteMap "if k k k k k k k k k k k k k k k k k k k k k kj 



jkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

MO_DrawMap : stamp the map into the current window inside dstRect 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k j 

void 

MO_DrawMap (bm, mapWindow) 

BitMap bm; 

WindowPtr mapWindow; 

{ 

static Rect dstRect = 



{ MAP_TOP + 9, MAP_LEFT, MAP_TOP + 9+l 60 , MAP_LEFT+416 }; 
GrafPtr savePort; 

Rect r; /* entire map rect incl . poles */ 



if (prefer . showmap != TRUE) 
return; 



GetPort( &savePort ); 

SetPort ( mapWindow ) ; 

InvalRect ( & (mapWindow~>portRect) ) ; 
BeginUpdate ( mapWindow ) ; 



MoveTo(120/ 30); /* horiz, vert */ 

TextFont (systemFont ) ; 

Drawstring (” \p World Geographic Coordinate System"); 

CopyBits (&bm, & (mapWindow~>portBits ) , & ( (bm) .bounds ) , &dstRect, srcCopy^ NIL) 



r.top = MO_LattoPixel ( 90 . 0 ) ; 

/* 90 ^. */ 

r.left = MO_LontoPixel ( 181 . 0 ) ~3; 

/* 181^E. 

r. bottom = MO_LattoPixel (~90 . 0 ) ; 

/* 90^S. */ 

r. right = MO_LontoPixel ( 180 . 0 ) +4 ; 

/* 180^E. */ 
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FrameRect (&r) ; 



/* Frame the map 






/* Draw Monterey as a Square Box */ 

r.left = MO_LontoPixel (360. 0-120.0) -2; 
r . right = r.left + 4; 
r.top = MO_LattoPixel (36 .0) -2; 
r.bottom= r.top + 4; 

FillRect (&r, black) ; 

EndUpdate ( mapWindow ) ; 

SetPort ( savePort ) ; 

j -k *★***★*★**★★**★★***★*★* DrawMap **********************’‘f**** */ 



MO_DrawMapUpdate : add satellite pos to global map 



void 

MO_DrawMapUpdate ( 
Orbitinfo 
WindowPt r 

{ 

GrafPtr 

Rect 



orbitinfo^ mapWindow ) 
orbitinfo; 
mapWindow; 

savePort; 
r ; 



GetPort ( SsavePort ) ; 

SetPort ( mapWindow ) ; 
switch (prefer . draw_method) 

{ 

case 0: /* dots only */ 

r.top = MO_LattoPixel ( cv_gangd (orbitinfo . geo . latitude) ); 
r. bottom = r.top + 5; 

r.left = MO_LontoPixel ( cv_gangd (orbitinfo .geo . longitude) ) ; 
r. right = r.left + 5; 

FillOval(&r^ black); 
break; 

case 1: /* lines only */ 

if (prefer . first_plot != TRUE) 

{ 

MoveTo (MO_LontoPixel ( cv_gangd (orbitinfo . last_geo . longitude ) ) t 
MO_LattoPixel ( cv_gangd (orbitinfo . last_geo . latitude) ) ) ; 
r.top = MO_LattoPixel ( cv_gangd (orbitinfo . geo . latitude) ); 
r.left = MO_LontoPixel ( cv^gangd (orbitinfo .geo . longitude) ) ; 
if ( (orbitinfo . last_geo . longitude <= PI) 

&& (orbitinfo .geo . longitude >= PI)) 
break; /* early break due to changing map edge */ 

LineTo (r.left, r.top) ; 

} 
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break; 

case 2: /* both lines and dots */ 

if (prefer . first_plot != TRUE) 

{ 

MoveTo (MO_LontoPixel ( cv_gangd (orbitinfo . last_geo . longitude ) ) , 
MO_LattoPixel ( cv_gangd (orbitinfo . last_geo . latitude) )); 
r.top = MO_LattoPixel ( cv_gangd (orbitinfo . geo . latitude) ); 
r.left = MO_LontoPixel ( cv_gangd (orbitinfo .geo . longitude) ) ; 

if ( (orbitinfo . last_geo . longitude <= PI) 

&& (orbitinfo .geo . longitude >= PI)) 
break; /* early break due to changing map edge 

LineTo (r . left ^ r.top) ; 
r.top = r.top - 2; /* center the dot 
r. bottom = r.top + 5; 

r.left = r.left - 2;/* center the dot 
r. right = r.left 5; 

FillOval(&r^ black); 

I 

else /* starting so just draw a dot 

{ 

r.top = MO_LattoPixel ( cv_gangd (orbitinfo .geo . latitude) ) 
r. bottom = r.top + 5; 

r.left = MO_LontoPixel ( cv_gangd (orbitinfo . geo . longitude ) ) 
r. right = r.left + 5; 

FillOval(&r^ black); 

) 

break; 

) 

SetPort ( savePort ) ; 
j. ^ ★★★★★★★★★★★★★★★★★★★★ MO D r awMapUpdat e 



*/ 

*/ 

*/ 

*/ 

- 2 ; 

- 2 ; 



MO_LattoPixel : compute the pixel nearest to North (>0) or South (<0) 

★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ -k ^ 

int 

MO_LattoPixel (lat) 

double lat; 

{ 

int temp; 

temp = ((90-lat) * PIX_LAT) + MAP_TOP; 
return ( temp ) ; 

J LattoPixel ************************* */ 
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MO_LontoPixel : compute the pixel nearest to East Longitude 

where west (left) map edge is 181^ E. Longitude and 
east (right) map edge is 180® E. Long. 

int 

MO_LontoPixel (Ion) 

double Ion; 

{ 

int temp; 



if ((0.0 <= ion) && (Ion <= 180.0)) 

temp = (Ion * PIX_LON) + (MAP_LEFT + 416/2) ; 
else if ((180.0 < Ion) && (Ion <= 360.0)) 
temp = (don-180) * PIX_LON) + MAP_LEFT ; 

else 

temp = 0 ; 
return ( temp ) ; 



j± ****** **★★***★*★★**** * LontoPixel ************************* */ 
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^icicicicicicicic-k'k-kieicic-k-k'k-k-k-k-k-k'k-k'k-k-k'k-k-k-k-k-k-kic’kic-kicicicicic-k-k-kicicicic-kicicicic'kic’k-k-k-k-k-k-k-k-k-k-k-kic 



FILENAME 

DESCRIPTION 

ENVIRONMENT 

AUTHOR 

ADVISORS 



REMARKS 

VERSION 



MacOrbits .menu . c 

menu manager for other than first 3 menus 

Macintosh SE 1Mb 

LightSpeed™ C v2.15 

Captain Kenneth L. BEUTEL USMC 

Prof. Dan Davis 

Prof. Dan Boger 

Naval Postgraduate School^ Monterey CA 
plot menu code found in MacOrbits .pi . c 
0.9 (3/6/88) 



CHANGES 



3/6/88 Formatted for MacWrite conversion 






Include 


"QuickDraw. h” 


#include 


"MacTypes .h” 


finclude 


"FontMgr . h” 


tinclude 


"WindowMgr . h” 


finclude 


"MenuMgr .h” 


finclude 


"TextEdit . h" 


finclude 


"DialogMgr .h” 


finclude 


"EventMgr .h" 


finclude 


"DeskMgr .h” 


finclude 


"FilcMgr . h" 


finclude 


"ToolboxUtil.h" 


finclude 


"ControlMgr . h" 


finclude 


"StdFilePkg.h" 


finclude 


"stdio.h” 


finclude 


"LightSpeed Disk: Thesis C fiStdLib.h 


finclude 


"MacOrbits . h” 


finclude 


"MacOrbits .proto .h" 



extern Preferences 
extern WindowPtr 
extern BitMap 



prefer; /* preferences for how things look 
mapWindow;/* the window that draws world map 
map__bm; /* where the original map is drawn 



*/ 

*/ 

*/ 



MO__OrbitsMenu : info on how to display orbit 

★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ -k ^ 

void 

MO__OrbitsMenu (theltem^ theWind) 
int the Item; 

WindowPtr theWind; 
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Str255 
Orbitinf o 
Rect 



str ; 

*orbitinf o; 
plotRect ; 



orbitinfo = (Orbitinfo *) (( (WindowPeek) (theWind) ) ->refCon) ; 

switch (theltem) 



case 1: /* **** DISPLAY AS TEXT **** 

orbitinf o->text only = TRUE; 
break; 

case 2: /* **** DISPLAY GRAPHICALLY *****/ 

orbitinf o->textonly = FALSE; 

/* fix to erase textbox of graphic wind 
plotRect = theWind->portRect ; 

plotRect .bottom = plotRect. top + (2*BOX_V+4) ; 

EraseRect (SplotRect) ; 
break; 

case 4: /* ****IJK COORDS **** 

orbitinf o->coordinates = I JK_COORDS ; 
break; 

case 5: /* **** PQW COORDS **** 

orbitinf o->coordinates = PQW_COORDS ; 
break; 

case 6: /* **** GEOGRAPHIC COORDS **** 

orbit inf o->coordinates = GEO_COORDS ; 
break; 
default : 

NumToString (theltem^ str) ; 

MO__Generic ( ” \pUnimplemented Orbit Menu str ); 

} 

prefer .changes = TRUE; /* Adjust menu bar approriately 
InvalRect (& (theWind->portRect ) ) ; 



*/ 



/* ********************* Orbit sMenu *************************** */ 



^ ******************************************************************** 
MO_PlotMenu : info on how to display orbit 
****************************************************************** *^ 
void 

MO_PlotMenu (theltem) 

int theltem; 

{ 

Str255 str; 

switch (theltem) 

{ 

case plONE: /* **** PLOT FOR SPECIFIED TIME **** */ 

MO SetPlotDuration ( ) ; 
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break; 

case plCONT: /* **** PLOT CONTINUOUSLY **** */ 

prefer . plot_duration = plCONT; 
prefer . plotting = TRUE; 
prefer . first_plot = TRUE; 

/* initiating new plot sequence */ 

prefer .elapsed_time = TickCountO; 

prefer . changes = TRUE;/* Update the menu items appropriately */ 
break; 

case plRESET: /* ****RESET PLOT **** */ 

prefer. time = 0; /* simply reset the counters... */ 

prefer . elapsed_time = TickCountO; 

MO_ForceUpdate ( ) ; /* and force redraw of whole screen */ 

MO_DrawMap (map_bm^ mapWindow) ; 
break; 

case plSTOP: /* ****STOP PLOTTING **** */ 

prefer .plotting = FALSE; 

prefer . changes = TRUE;/* Update the menu items appropriately */ 
break; 
default : 

NumToString (theltem^ str) ; 

MO_Generic ( "\pUnimplemented Plot Menu item:”, str ); 

) 



j ★★★★★★★★★★★★★★★★★★★★★ MO PlotMenu -k j 



MO^SetPlotDuration : select amount of time to plot for 

★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ k j 

void 

MO_SetPlotDuration ( ) 

{ 

DialogPtr myDialog; 

int itemhit; 

int dummy; 

Handle time_text, ok_button; 

double time_val; 

Rect rect; 

Str255 str; 



myDialog = GetNewDialog (PlotDurationID, NIL, INFRONT); 
GetDItem (myDialog, 4, &dummy, &time_text, &rect) ; 

/* wall clock plot time (minutes) 
GetDItem (myDialog, 1, &dummy, &ok_button, &rect) ; 
MO_OutlineButton ( rect, myDialog ); 

SellText (myDialog, 4, 0, 99); 

/* Hilight text 



itemhit = 0; 



*/ 



*/ 
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while ({itemhit != 1) && (itemhit != 2)) 

{ 

ModalDialog (NIL, &itemhit) ; 
if (itemhit == 1) 

GetIText (time_text, &str) ; 
time_val = M0_pStr2Num (&st r) ; 
if (time__val <= 0.0) 

itemhit =0; /* invalidate OK button selection */ 

} 

} 

if (itemhit == 1) /* OK button so set changes */ 

prefer .plot_durat ion = plONE; 
prefer .plotting = TRUE; 
prefer . first_plot = TRUE; 

/* initiating new plot sequence 
prefer . elapsed_time = TickCount () ; 

prefer . changes = TRUE;/* Update the menu items appropriately */ 
prefer . stop_time = time_val * 60.0; 

/* convert minutes to secs */ 

} 

DisposDialog (myDialog) ; 

j -k Set P lot Dura t ion k'kkk'k-kk'k-k'kk'kk-k-k'kk'k-kk-k k j 



^kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

MO_WindowMenu : info on how to configure world 
void 

MO_WindowMenu (theltem) 

int theltem; 

Str255 str; 

WindowPt r current ; 

switch (theltem) 

case 1: /* **** SHOW/HIDE GLOBAL MAP **** */ 

if (prefer . showmap) 

prefer . showmap = FALSE; 
prefer .changes = TRUE; 

/* Force Redrawing of menu's */ 

} 

else 
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{ 

prefer . showmap = TRUE; 
prefer . changes = TRUE; 

/* Force Redrawing of menu's ! 

} 

break; 
case 3 ; 

current = MO__FirstWindow ( ) ; 
while (current != NIL) 

{ 

MO_HideWindow (current ) ; 

current = MO_NextWindow (current ) ; 

} 

prefer . changes = TRUE;/* Adjust menu bar appropriately */ 

break; 
case 5 : 
case 6 : 
case 7 : 
case 8 : 
case 9 ; 

MO_ShowWindow ( theltem - 5); 

prefer .changes = TRUE;/* Adjust menu bar appropriately */ 

break; 
default : 

NumToString (theltem^ str) ; 

MO_Generic ( ” \pUnimplemented Window Menu item:", str ); 

} 

I "k ******************** MO WindowMenu *************************** */ 



Ikkkkkkkkkkkkkkkkkkkkkkkkkk'^kkkkkkkkkkkkkk.'k'k.'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k.'k 

MO_SpecialMenu : miscellany 

******************************************************************** ~k J 

void 

MO_SpecialMenu (theltem) 



int 

{ 

Str255 


theltem; 








St re- 








WindowPtr 


current ; 








GrafPtr 


savePort ; 








switch 

{ 

case 1 


(theltem) 








/* 


**** DISPLAY UNITS **** 


*/ 


M0_ 


SetUnits ( ) ; 








M0_ 


ForceUpdate ( ) ; /* 


and force 


redraw of whole screen 


*/ 


break; 
case 2 


: /* 


**** time 


step **** 


*/ 



MO_TimeStep ( ) ; 
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/* **** TRACE ORBIT **** 



break; 
case 3 : 

MO^OrbitTrace () ; 
break; 
case 4: 

if (prefer . showaxes ) 

{ 



/* **** SHOW/HIDE AXES 






prefer . showaxes = FALSE; 
prefer . changes = TRUE; 

/* Force Redrawing of menu’s 



V 



*/ 



*/ 



else 

prefer . showaxes = TRUE; 
prefer . changes = TRUE; 

/* Force Redrawing of menu’s */ 

} 

MO_ForceUpdate ( ) ; /* and force redraw of whole screen 

break; 
default : 

NumToString (theltem, &str) ; 

MO_Generic ( ”\pUn implemented Special Menu item:”, str ); 

} 

specialMenu ************************* */ 



MO^SetUnits : select a new system of units 
void 

MO SetUnitsO 



DialogPtr 

int 

int 

Handle 

Rect 



myDialog; 
itemhit ; 
dummy; 

metric_button, canon_button, english_button, ok__button 
rect ; 



myDialog = GetNewDialog (SetUnitsID, NIL, INFRONT); 

GetDItem (myDialog, 3, &dummy, &metric_button, &rect) ; 

/* metric units radio button */ 

GetDItem (myDialog, 5, &dummy, &canon_button, &rect) ; 

/* canonical units radio button */ 

GetDItem(myDialog, 6, &dummy, &english_button, &rect) ; 

/* english units (unsupported) button */ 

SetCtlValue (metric_button, 0) ; 

SetCtlValue (canon_button, 0) ; 
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HiliteCont rol (english^button^ 255) ; 

/* Disable this radio button */ 

if (prefer . std_units == 0) 

SetCtlValue (metric_button, 1) ; 
else if (prefer . std_units == 1) 

SetCtlValue (canon_button, 1) ; 
itemhit = 0; 

GetDItem (myDialog, 1, &duinmy, &ok_button, &rect) ; 

MO_OutlineButton ( rect, myDialog ); 

while ((itemhit != 1) && (itemhit != 2)) 

{ 

ModalDialog (NIL, &itemhit) ; 
if (itemhit == 3) 

{ 

SetCtlValue (metric_button, 1) ; 

SetCtlValue (canon__button, 0) ; 

} 

else if (itemhit == 5) 

{ 

SetCtlValue (metric_button, 0) ; 

SetCtlValue (canon_button, 1) ; 

} 

) 

if (itemhit == 1) /* OK button so determine changes */ 

{ 

if (GetCtlValue (met ric_button) == 1) 
prefer . std_units = 0; 

/* The final 
else if (GetCtlValue (canon_button) 
prefer . std_units = 1; 

/* The final 

} 

DisposDialog (myDialog) ; 

! "k MO SetUnits **★*★*★★★*★*★**★★******★** 



j'k'k'k-k-k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k'kk-k'k'k'k'k-k'k'k-k'k'kk'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'kk'k'k'k'k'k'kk'k'k 

MO_TimeStep : select a new compression ratio or plot increment 

k j 

void 

MO_TimeStep ( ) 

{ 

DialogPtr myDialog; 

int itemhit; 

int dummy; 

Handle compress, increment, ok_button; 



choice was metric units */ 

“ 1 ) 

choice was canonical units */ 
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double 

Rect 

Str255 



c omp_va If in c r_va 1 ; 

rect ; 

str; 



myDialog = GetNewDialog (TimeStepID, NIL, INFRONT); 

GetDItem(myDialog, 8, &dummy, &compress, &rect) ; 

/* compression ratio text */ 

GetDItem (myDialog, 6, &dummy, &increment, &rect) ; 

/* plotting increment text */ 

sprintf (str, ”%G’* , prefer . time_comp) ; 

CtoPstr (&str) ; 

SetIText (compress, str) ; 

sprintf (str, ” %G” , prefer . draw_incr) ; 

CtoPstr (&str) ; 

SetIText (increment, str) ; 

SellText (myDialog, 6, 0, 99); 

/* Hilight plotting increment text */ 

itemhit = 0; 

GetDItem (myDialog, 1, &dummy, &ok_button, &rect) ; 

MO_OutlineButton ( rect, myDialog ); 

while ((itemhit != 1) && (itemhit != 2)) 

{ 

ModalDialog (NIL, &itemhit) ; 
if (itemhit == 1) 

{ 

Get IText (compress , &str) ; 
comp_val = MO_pStr2Num (&str) ; 
if (comp__val <= 0.0) 

itemhit =0; /* invalidate OK button selection */ 

Get IText (increment , &str) ; 
incr_val = MO_jDStr2Num (&str) ; 
if (incr_val <= 0.0) 

itemhit =0; /* invalidate OK button selection */ 

} 



if (itemhit == 1) /* OK button so set changes */ 

{ 

prefer . time_comp = comp_val; 
prefer . draw_incr = incr_val; 

) 



DisposDialog (myDialog) ; 

j j Times tep *****************★*★*★★★**★ ★/ 
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MO_OrbitTrace : select a method of plotting orbits 

0 - dots; 1 - lines; 2 - dots on lines 



void 

MO_OrbitTrace ( ) 
{ 

GrafPtr 

DialogPtr 

int 

int 

long int 

Handle 

Rect 

Rect 

Str255 



savePort; 
myDialog; 
itemhit, olditem; 
dummy , i ; 
themethod; 

dots_icon, line_icon^ dotline_icon^ ok_button; 
rect ; 

icon_rect [3] ; 
str ; 



GetPort (&savePort) ; 

myDialog = GetNewDialog (TraceOrbit ID, NIL, INFRONT); 
SetPort ( (GrafPtr) myDialog) ; 



GetDItem (myDialog, 


3, 


&dummy, &dots_icon, & (icon_rect [0] ) ) ; 
/* dots icon 


*/ 


GetDItem (myDialog, 


4, 


&dummy, &line_icon, & (icon_rect [1] ) ) ; 
/* solid line icon 


*/ 


GetDItem (myDialog, 


5, 


Sdummy, &dotline_icon, & (icon_rect [2] ) ) ; 
/* dotted line icon 


*/ 



itemhit = prefer . draw_method + 3; 
themethod = prefer .draw_method; 

/* icons are items 3,4,5 respectively */ 

for (i=0; i<=2; i=i+l) 

InsetRect (& (icon_rect [i] ) , -4, -4) ; 

PenMode (patXor) ; /* Erase any existing rect with redraws */ 

PenSize (2,2) ; 

olditem = itemhit; 

BeginUpdate ( (WindowPtr) (myDialog) ) ; 

DrawDialog (myDialog) ; 

FrameRect (& (icon_rect [itemhit~3] ) ) ; 

EndUpdate ( (WindowPtr) (myDialog) ) ; 

GetDItem (myDialog, 1, &dummy, &ok_button, &rect) ; 

MO_OutlineButton ( rect, myDialog ); 

while ((itemhit != 1) && (itemhit != 2)) 

{ 

ModalDialog (NIL, Sitemhit) ; 

if ((3 <= itemhit) && (itemhit <= 5) && (olditem != itemhit)) 
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{ 



FrameRect (& (icon_rect [olditem-3 ] ) ) ; 

FrameRect (& (icon_rect [itemhit-3] ) ) ; 
themethod = (itemhit-3) ; 
olditem = itemhit; 

} 

) 

if (itemhit == 1) /* OK button so set changes */ 

{ 

prefer . draw_method = themethod; 

1 

SetPort (savePort) ; 

DisposDialog (myDialog) ; 

J j -k -k k -k -k k -k -k k k -k k k -k k -k k k k k k -k k JyJQ OrbitTraCe *■*■**********'*’*■■*’***■*★*★*•*’* kj 
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FILENAME 


MacOrbits . pi . c 


DESCRIPTION 


: contains drawing (plotting) routines for 

orbit window contents. 


ENVIRONMENT 


Macintosh SE iMb 
LightSpeed™ C v2.15 


AUTHOR 


: Captain Kenneth L. BEUTEL USMC 


ADVISORS 


: Prof. Dan Davis 

Prof. Dan Boger 

Naval Postgraduate School, Monterey CA 


REMARKS 


: called by menu code in MacOrbits .menu . c 


VERSION 


: 0.9 (3/6/88) 



CHANGES 



3/6/88 Formatted for MacWrite conversion 






finclude 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

finclude 



"QuickDraw . h" 
"MacTypes .h" 
"FontMgr . h” 
"WindowMgr . h” 
"MenuMgr . h” 
"TextEdit .h” 
"DialogMgr . h" 
"EventMgr . h" 
"DeskMgr .h” 
"FileMgr .h" 
"ToolboxUtil . h" 
"ControlMgr . h" 
"stdio.h" 
"math.h" 



#include "LightSpeed Disk: Thesis C f:StdLib.h” 

finclude "MacOrbits . h" 

#include "MacOrbits . proto. h" 



extern Preferences prefer; 

/* preferences for how things look 
extern BitMap globePics [MAXGLOBES ] ; 

extern WindowPtr mapWindow; 

/* backgd window of world map 



*/ 



*/ 



/**★★*★★★★**★★**★**★*★★★★****★*★★*★★*★★**★★*★**★★*★★*★*★★*★*★★*★★★★** 
MO_TextOnly : writes data into window for text only display 

****************************************************************** -k ! 

void 

MO_TextOnly ( orbit info) 

Orbitinfo orbitinfo; 



164 



{ 

static Str30 



static Str30 



Velocity ” , 

int 

Rect 

Str255 

Dist 

Real 

Angle 

Dist 

Real 

Dist 

Angle 



titlel[10] = 

{ ”\pSemima jor ” , ” \pEccent ricity ” , "\pInclination" , 

"\pArg. of Perigee”^ "\pLong. of Ascending Node”, 
”\pMean Anomaly”, ”\pEpoch Time”, ”\pEpoch Date”, 
"\pEccentric Anomaly”, ”\pPeriod” }; 
title2[10] = 

{”\pPerigee Radius ”,” \pApogee Radius ”,” \pMean Motion” 
” \pAngular Momentum” , ” \pSemiparameter ” , 

”\pCurrent Radius”, ”\pSwath Width”, ”\pCurrent 

”\pEscape Velocity”, ”\pSpecific Energy” }; 
i; 

infoRect, eraser; 
str ; 

a, tempd; 

e; 

inc ; 

radius; /* the current radius km */ 

velocity;/* the current velocity km/sec */ 

x,y, z; 
eccen anom; 



TextFace (bold I extend); 

Move To ( (408/2) - ( StringWidth ( ” \pTextOnly View”)/2), 15); 

Drawstring (” \pText Only View”) ; 

TextFace (0) ; 

PenSize (2,2) ; 



MoveTo (0, 175) ; 


/* 


Draw 


bottom horizontal line 


*/ 


LineTo (408, 175) ; 
MoveTo (0, 22) ; 
LineTo (408, 22) ; 
MoveTo (408/2, 22); 


/* 


Draw 


top horizontal line 


*/ 


LineTo (408/2, 175) ; 


/* 


draw 


center vertical line 


*/ 



PenSize (1,1) ; 



for ( i=0; i<10; i=i+l) 

{ /* Draw 1st column titles */ 

MoveTodO, 35+(15*i) ); 

Drawstring (titlel [i] ) ; 

} 

for ( i=0; i<10; i=i+l) 

{ /* Draw 2nd column titles */ 

MoveTo( (408/2) +10, 35+(15*i) ); 

Drawstring (title2 [i] ) ; 



/* Get Eccentric Anomaly */ 

eccen^anom = kl^gecca (& (orbitinf o . orbitdata) , orbit inf o . orbitdata . epoch) 



165 



/★ ******* Create data for left column *★★*★*** */ 

SetRect (SinfoRect ^ 135^ 24 , 203 , 175); 

/* left, top, right, bottom */ 

FrameRect (&infoRect) / 
for ( i=0; i<10; i=i+l) 

{ 

MoveTo (inf oRect . left + 5, 35+(15*i)); 
switch (i) 

{ 

case 0: /* Semi Major axis */ 

a = gl_gorba (orbitinf o . orbitdata) ; 
if (prefer . std_units == 0) 

{ /* metric units */ 

sprintf (&st r, ”%-7.1f km", a) ; 

} 

else if (prefer . std_units == 1) 

{ /* convert from canonical units */ 

tempd = a / 6378.6; 

sprintf (&str, "%-5.3f E.R.”, tempd); 

} 

CtoPstr (&str) ; 
break; 

case 1: /* eccentricity */ 

e = gl_gorbe (orbitinf o . orbitdata) ; 
sprintf (&str, "%-7.5f", e) ; 

CtoPstr (&st r) ; 
break; 

case 2: /* inclination */ 

inc = cv_gangd(gl_gorbi(orbitinfo.orbitdata)); 
sprintf ( &str, ”%-7.2f^”, inc); 

CtoPstr (&str) ; 
break; 

case 3: /* argument of perigee */ 

sprintf (&str, ”%-7 . 2f®” , cv_gangd (gl_gorbp (orbitinf o .orbitdata) ) ) 
CtoPstr (&str) ; 
break; 

case 4: /* longitude of ascending node */ 

sprintf (&str, ”%-7 . 2f^” , cv_gangd (gl_gorbl (orbitinf o . orbitdata) ) ) 
CtoPstr (&str) ; 
break; 

case 5: /* mean anomaly */ 

sprintf (&str, ”%“7.5f rad", 

cv_gangr (gl_gorbm(orbitinf o . orbitdata) ) ) ; 

CtoPstr (&str) ; 

SetRect (&eraser, 136, 35+ (15* (i-1) ) , 202, 35+(15*i)); 

EraseRect (&eraser) ; 
break; 

case 6: /* Current time in secs past epoch */ 

lUTimeString (prefer . time, TRUE, str) ; 
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SetRect (^eraser, 136^ 35+ ( 15* ( i-1 ) ) , 202, 35+(15*i)); 

EraseRect (^eraser) ; 
break; 

case 7: /*epoch date */ 

sprintf (&str, ”%-9 . Of", orbitinfo .orbitdata .date) ; 

CtoPstr (&str) ; 
break; 

case 8: /^Eccentric Anomaly */ 

sprintf (&str, "%-7.5f rad", eccen_anom ); 

CtoPstr (&str) ; 

SetRect (&eraser, 136, 35+ ( 15* ( i-1 ) ) , 202, 35+{15*i)); 

EraseRect (^eraser) ; 
break; 

case 9: /*Period */ 

sprintf (&str, "%-9.2f min", gl_gperd (gl_gmean (a) ) / 60 . 0 ); 
CtoPstr (&str) ; 
break; 

} 

Drawstring (str) ; 



/* ******* Create data for right column ★/ 

SetRect {& inf oRect, (408/2) +137, 24, (408/2) +205, 175); 

/*left, top, right, bottom */ 

FrameRect (&infoRect) ; 
for ( i=0; i<10; i=i+l) 

{ 

MoveTo (inf oRect . left + 5, 35+(15*i)); 
switch (i) 

{ 

case 0; /* radius of perigee */ 

tempd = gl_gradp (a, e) ; 
if (prefer . std_units == 0) 

{ /* metric units */ 

sprintf ( &str, ”%-7.1f km", tempd); 

} 

else if (prefer . std_units == 1) 

{ /* convert from canonical units */ 

tempd = tempd / 6378.6; 
sprintf (&str, "%-5.3f E.R.”, tempd); 

} 

CtoPstr (&str) ; 
break; 

case 1: /* radius of apogee */ 

tempd = gl_grada (a, e) ; 
if (prefer . std_units == 0) 

{ /* metric units */ 

sprintf (&str, "%~7.1f km", tempd); 

} 

else if (prefer . std_units == 1) 

{ /* convert from canonical units */ 
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tempd = tempd / 6378.6; 

sprintf (&str, E.R.’\ tempd); 

} 

CtoPstr (&str) ; 
break; 

case 2: /* mean motion */ 

sprintf (&str, ”%-7 . 5f gl_gmean (a) ) ; 

CtoPstr (&str) ; 
break; 

case 3: /* angular momentum */ 

sprintf (&str^ "%-7.1f*\ gl_gangm (a^ e) ) ; 

CtoPstr (&str) ; 
break; 

case 4: /* semiparameter */ 

tempd = gl_gsemi(a, e) ; 
if (prefer . std_units == 0) 

{ /* metric units */ 

sprintf (&str, ”%'“7.1f tempd); 

} 

else if (prefer . std_units “ 1) 

{ /* convert from canonical units */ 

tempd = tempd / 6378.6; 
sprintf (&str, ”%-5.3f E.R.”, tempd); 

} 

CtoPstr (&str) / 
break; 

case 5: /* current radial distance */ 

radius = gl_grade (a^ e^ eccen_anom) ; 
tempd = radius; 
if (prefer o std_units == 0) 

{ /* metric units */ 

sprintf (&str, ”%-7.1f km”, tempd); 

} 

else if (prefer . std_units == 1) 

{ /* convert from canonical units */ 

tempd = tempd / 6378.6; 
sprintf ( &str, ”%-5.3f E.R.", tempd); 

/ 

CtoPstr (&str) ; 

SetRect (&eraser, 343, 35+ ( 15* (i-1) ) , 406, 35+(15*i)); 

EraseRect (&eraser) ; 
break; 

case 6: /* swath width */ 

tempd = gl_ggswi ( radius) ; 
if (prefer . std_units == 0) 

{ /* metric units */ 

sprintf (&str, ”%-7.1f km", tempd); 

} 

else if (prefer . std_units == 1) 

{ /* convert from canonical units */ 

tempd = tempd / 6378.6; 
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sprintf (&str^ ”%-5.3f E.R.'\ tempd) / 

) 

CtoPstr (&str) / 

SetRect (^eraser, 343, 35+ ( (i-1) ) , 406, 35+(15*i))/ 

EraseRect (Seraser) ; 
break; 

case 7: /* current velocity */ 

velocity = gl_gvelo (radius, a) ; 
sprintf (&str, ”%-7.1f km/s”, velocity); 

CtoPstr (&str) ; 

SetRect (^eraser, 343, 35+ ( 15* (i-1 ) ) , 406, 35+(15*i)); 

EraseRect (Seraser) ; 
break; 

case 8: /^escape velocity */ 

sprintf (&str, "%-7.1f km/s”, gl_gvesc (radius) ) ; 

CtoPstr (&str) ; 

SetRect (Seraser, 343, 35+ ( 15* (i-1 ) ) , 406, 35+(15*i)); 

EraseRect (Seraser) ; 
break; 

case 9: /*specific energy */ 

sprintf (&str, ”%-7.1f”, gl_gspen (velocity , radius) ); 

CtoPstr (&str) ; 

SetRect (^eraser, 343, 35+ (15* (i-1) ) , 406, 35+(15*i)); 

EraseRect (&eraser) ; 
break; 

} 

Drawstring (str) ; 



/★ ★***★★★ Create data for bottom section :Coord System Location */ 

MoveTo (20, 185); 

Drawstring (” \pCoord System”); 

/* Internal time formats are: StdLib = decimal hrs, MacOrbits=seconds */ 
for (i=0; i<3; i=i+l) 

{ 

switch (i) 

{ 

case 0 : 

strcpy(str, ”IJK”) ; 
x= orbitinf o . i jk . x; 
y= orbitinf o . ijk . y; 
z= orbitinfo . i jk . z; 
if (prefer . std_units == 1) 

/* convert to canonical units */ 

= X / 6378.6; 

= y / 6378.6; 

= z / 6378.6; 



{ 

X 

y 

z 

} 

break; 
case 1 : 



169 



/* should always be zero I 



strcpy(str, ’*PQW”) ; 
x= orbitinf o . pqw . x; 
y= orbitinf o .pqw. y; 
z= orbit info .pqw. z; 
if (prefer . std_units == 1) 

{ /* convert to canonical units 

X = X / 637 8 . 6 ; 
y = y / 6378 . 6; 
z = z / 6378.6; 

} 

break; 
case 2 : 

strcpy(str^ "Geographic" ) ; 
x= cv_gangd (orbitinf o . geo . latitude) ; 
y= cv_gangd (orbitinf o . geo . longitude) ; 
z= orbitinf o . geo . altitude; 
if (prefer . std_units == 1) 

{ /* convert to canonical units 

z = z / 6378.6; 

} 

break; 

} 

MoveTo(25, 200 + (i*15) ); 

/* print the heading 

CtoPst r (&str) ; 

Drawstring (str) ; 

SetRect (&eraser^ 90-1, 200 -11 + (i*15) , 350, 200 + (i*15) 
EraseRect (^eraser) ; /* left, top, right, bottom 

MoveToOO, 200 + (i*15) ); 
if (i==2) 

sprintf (&str, ”lat=%-7 . If ” , x) ; 
else 

sprintf (&str, ”x =%-7.1f”, x) ; 

CtoPstr (&str) ; 

Drawstring (str) ; 

MoveTo(160, 200 + (i*15) ); 
if (i==2) 

sprintf (&str, ”lon=%-7 . If ” , y) ; 
else 

sprintf ( &str, ”y =%-7.1f", y) ; 

CtoPstr (&str) ; 

Drawstring (str) ; 



MoveTo(230, 200 + (i*15) ); 
if (i==2) 



sprintf (&str, ”h 


=%-7.1f”, z) ; 


else 




sprintf (&str, ”z 


=%-7.1f”, z); 



*/ 



*/ 



*/ 



*/ 



*/ 
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CtoPstr (&str) ; 
Drawstring (str) ; 



} 



******************** 



MO TGxtOnly *******-***-***********-)*r*****7'r* 



/**************★**★★*★***★★*****★★★***********★*******★★***★★*******★ 
MO_DrawElt : writes orb elems into boxes for MO__DrawALL ( ) 
**************************************** *★★★***•★******★*★*★★★*★*•** */ 
void 

MO_DrawElt (row, col, str) 
int row; 

int col; 

char *str; 

{ 

int centered; 

centered = StringWidth (str) /2 ; 

MoveTo( (( (col-1) *BOX_H) + (70/2) - centered), (row*BOX_V) -3) ; 

Drawstring (str) ; 

J j -k k k k k k k k k k k k k k k k k k k k k k k JwJQ DrawElt **************************** */ 



ykkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

MO__DrawALL : common display routine for all graphics windows 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k j 

void 

MO__DrawALL( orbitinfo, theWind) 

Orbitinfo orbitinfo; 

WindowPtr theWind; 



{ 

Rect 

Rect 

Str255 

Angle 

int 



timeRect ; 
eraser; 
timeStr, str; 
a, mean__anom; 

j; 



timeRect = theWind->portRect; 
timeRect . left = 5; 

timeRect .bottom = timeRect .bottom - (SBarWidth+1) ; 
timeRect. top = timeRect .bottom - (SBarWidth) ; 
timeRect . right = timeRect . right - (SBarWidth); 
if (timeRect . right > 90) 
timeRect . right = 90; 

EraseRect (&timeRect) ; 
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MoveTo (timeRect . lef t + 1 , timeRect .bottom - 1); 
lUTimeString (prefer . time, TRUE, timeStr) ; 
Drawstring (timeStr) ; 



PenSize (2, 2) ; 
for (j=0; j<3; j = 
{ 

MoveTo (0*BOX_H, 
LineTo (6*BOX_H, 

) 

for (i=0; i<7; i = 

{ 

MoveTo (i*BOX_H, 
LineTo (i*BOX_H, 

} 

PenSize (1, 1) ; 

Text Size ( 9) ; 



/ * Draw in heavier lines 
j+1) /* Draw boxes around the orb elts 

j*BOX_V) ; 
j*BOX_V) ; 

i+1) 

0*BOX_V) ; 

2*BOX_V) ; 

/* Rest to old PenSize 



*/ 

*/ 



*/ 



MO_DrawElt (1, 1 , ” \pSemima jor" ) ; 

a = gl_gorba (orbit inf o . orbitdata) ; 

SetRect (&eraser, 2, B0X_V+2, B0X_H-1, 2*B0X_V-1) ; 

if (prefer . std_units == 0) /* metric units */ 

sprintf (&str, ”%-7.1f km”, a ); 
else if (prefer . std_units == 1) 

sprintf (&str, ”%-6.3f E.R.”, a/6378.0 ); 

/* canonical units */ 

CtoPstr (&str) ; 

EraseRect (&eraser) ; 

MO__DrawElt (2, 1, (char *) str) ; 

MO_DrawElt (1, 2, ”\pEccent ricity” ) ; 

sprintf (&str, ”%-7 . 5f ”, gl__gorbe (orbitinfo .orbitdata) ) ; 

CtoPstr (&str) ; 

MO_DrawElt (2, 2, (char *)str); 

MO_DrawElt ( 1 , 3, ” \pInclination” ) ; 

sprintf (&str, ”%-7 . , cv_gangd (gl_gorbi (orbitinfo . orbitdata) ) ) ; 

CtoPstr (&str) ; 

MO_DrawElt (2, 3, (char *)str); 

MO_DrawElt (1, 4, ”\pArg of Perigee”); 

sprintf (&str, ”%-7 . If^” , cv_gangd (gl_gorbp (orbitinfo . orbitdata) ) ) ; 

CtoPstr (&str) ; 

MO_DrawElt (2 , 4, (char *)str); 

MO_DrawElt (1, 5, ”\pLong. of ASN”) ; 

sprintf (&str, ”%-7 . If , cv_gangd (gl_gorbl (orbitinfo . orbitdata) ) ) ; 

CtoPstr (&st r) ; 

MO_DrawElt (2, 5, (char *)str); 

MO_DrawElt (1, 6, ”\pMean Anomaly”); 
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mean_anom = cv_gangd ( gl_gorbm (orbit inf o . orbitdata ) 

+ gl_gmean(a) * prefer. time ); 
mean_anom = fmod (mean^anom, 360.0); 
sprintf (&str, mean_anom ); 

CtoPstr (&str) ; 

SetRect (&eraser, 5*BOX__H+2, BOX_V+2, 6*BOX_H-l, 2*BOX_V-l) ; 

EraseRect (^eraser) ; 

MO_DrawElt (2, 6, (char *)str); 

j -k ★★★★★★★★★★★★★★★★★★★★*★ DrawALL **************************** */ 



^******************************************************************** 
MO__DrawIJK : draws orbit in UK coord system 

* ***************************************************************** k j 



void 



MO_DrawIJK( orbitinfo^ theWind) 
Orbit Inf o orbitinf o; 

Window? tr theWind; 



{ 

static Rect 

Rect 

int 

double 

double 



dstRect = { 90, 124, 
r; 

y_center , z_cent er ; 
i jk_scale; 
inplane_radius ; 



134, 



168 }; 



y_center = 90 + ( (84-40) /2); 
z_center = 124 + ( (68-24) /2); 
ijk__scale = (44.0/2.0) / 6378.0; 

/* pixels/km */ 

/* Erase old view first */ 

CopyBits (&globePics [orbitinf o . lastview] , & (theWind- >portBits) , 

&( (globePics [orbitinf o . lastview] ) .bounds), &dstRect, srcXor, NIL) 
if ( (prefer .plotting) ) 

{ 

orbitinf o . lastview = (orbitinf o . lastview+1) % 3; 

/* Now draw new one */ 

CopyBits (&globePics [orbitinf o . lastview] , & (theWind->portBits) , 

& ( (globePics [orbitinf o . lastview] ) .bounds) , 

&dstRect, srcXor, NIL) ; 



if 


(prefer . showaxes ) 








{ 


/* draw the 


z 


axis 


V 




MoveTo ( z_center, y__center) ; 
LineTo ( z_center, y center - 30); 










/* draw the 


y 


axis 


*/ 




MoveTo ( z_center, y_center ); 
LineTo (z_center + 30, y_center ); 










/* draw the 


X 


axis 


*/ 
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MoveTo ( z_center , y_center ); 

LineTo ( z_center -21, y_center +26 )/ 



inplane_radius = orbitinfo . i jk . y * orbitinf o . i jk .y 
+ orbitinfo . ijk . z * orbitinf o . ijk . z ; 
if ( (inplane_radius > (6378.0*6378.0)) || (orbitinf o . ijk .x > 0.0)) 

switch (prefer . draw__method) 

{ 

case 0; /* dots only */ 

r.top = y_center - MO_t rune (orbitinf o . ijk . z * ijk_scale) ; 
r.left = z_center + MO_trunc (orbitinf o . ijk . y * ijk^scale) ; 
r. bottom = r.top + 3; 
r. right = r.left + 3; 

FillOval(&r, black); 
break; 

case 1: /* lines only */ 

if (prefer . first_plot != TRUE) 

{ 

MoveTo ( z_center +MO_trunc (orbitinf o . last_ijk . y *ijk_scale) , 
y_center -MO_trunc (orbitinfo . last_i jk . z *i jk_scale) ) ; 
LineTo ( z_center +MO_t rune (orbitinf o . ijk . y * ijk_scale) , 
y_center -MO_t rune (orbit inf o . ijk . z * ijk_scale) ) ; 

} 

break; 

case 2: /* lines and dots */ 

if (prefer . first_plot != TRUE) 

{ 

MoveTo (z_center +MO_t rune (orbitinf o . las t_ijk . y *ijk_scale) , 
y_center -MO_trunc (orbitinf o . last_ijk . z *ijk_scale) ) ; 
r.top = y_center - MO_trunc (orbitinfo . ijk . z * ijk_scale) ; 
r.left = z_center + MO_trunc (orbitinf o . ijk .y * ijk_scale); 
LineTo ( r . left , r.top); 
r.top = r.top - 2; 

/* center the dot */ 

r. bottom = r.top + 3; 
r.left = r.left - 2; 

/* center the dot */ 

r. right = r.left + 3; 

FillOval(&r, black); 

} 

else /* just draw a dot */ 

{ 

r.top = y_center - MO_t rune (orbitinf o . ijk . z * ijk_scale) -2; 
r. bottom = r.top + 3; 

r.left = z__center + MO_trunc (orbitinfo.ijk.y *ijk_scale) -2; 
r. right = r.left + 3; 

FillOval(&r, black); 

} 

break; 

) 
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! -k. •k-k-k'k'kk'k-k-k'kkk-k'k'k'k'k-k'k'kk-k DZ'SWUK ******************************* 



Ikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk'k-k'k'k'k'k'kk'k-kk'k'k'k'k'kk'kk'k'kk'kkkk 

MO_DrawPQW : draws orbit in PQW coord system 

kkkkkkkkkkkkkkkkkkkkkkkkkk'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k'k'k'k-k'k'k'k'k'kk'k'k-kk-k'k-k-k'k'k k j 

void 



MO_DrawPQW ( orbitinfo^ theWind) 
Orbit Info orbitinf o; 

WindowP t r t heWind ; 



{ 

static Rect 

Rect 

Rect 

double 



globe = 

{ PQW_X-15, PQW_Y-15, PQW_X + 15, 
globe_edge; 
r; 

pqw_scale = 15.0/6378.0; 

/* pixels of radii /km radii 



PQW Y + 15 



}; 



*/ 



MoveTodO, 44); 

Drawstring (” \pPQW Graphic view”); 

FillOval (&globe, gray) ; 
globe_edge = globe; 

InsetRect (&globe__edge, -2, -2) ; 

PenSize (2, 2); 

FrameOval (&globe_edge) ; 

PenSize (1, 1) ; 
if (prefer . showaxes) 

{ /* draw the y axis */ 

MoveTo (PQW_Y, PQW_X-50 ); 

LineTo (PQW_Y, PQW_X+50 ); 

/* draw the x axis */ 

MoveTo (PQW_Y-100, PQW_X ); 

LineTo (PQW_Y+50, PQW X ); 



switch (prefer . draw__method) 

{ 

case 0: /* dots only */ 

r.top = PQW__X - MO_t rune (orbit info .pqw.y * pqw_scale) ; 
r.left = PQW_Y + MO_t rune (orbitinf o . pqw . x * pqw_scale) ; 
r. bottom = r.top + 3; 
r. right = r.left + 3; 

FillOval (&r, black) ; 
break; 

case 1: /* lines only */ 

if (prefer . first_j>lot != TRUE) 

{ 

MoveTo(PQW_Y + MO_t rune (orbitinf o . las t_pqw . x * pqw_scale) , 
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PQW__X - MO_t rune ( orbit inf o . las t_pqw . y * pqw^scale) ); 
LineTo(PQW_Y + MO_trunc (orbitinf o . pqw . x * pqw_scale) , 

PQW_X - MO_trunc (orbit info .pqw. y * pqw_scale) ); 

} 

break; 

case 2; /* lines and dots 

if (prefer . first_plot != TRUE) 

{ 

MoveTo ( PQW_Y + MO_trunc (orbitinf o . last_pqw . X * pqw_scale) , 
PQW_X - MO_t rune (orbitinf o . last_pqw . y * pqw_scale) 
r.top = PQW_X - MO_trunc (orbitinf o . pqw . y * pqw_scale) ; 
r.left = PQW_Y + MO_trunc (orbitinf o . pqw . X * pqw^scale); 
LineTo (r . left , r.top); 
r.top = r.top - 2; /* center the dot 
r. bottom = r.top + 3; 

r.left = r.left - 2; /* center the dot 

r. right = r.left + 3; 

FillOval(&r/ black); 

} 

else /* and draw a dot 

{ 

r.top = PQW_X - MO_t rune (orbitinf o . pqw . y * pqw__scale) - 2; 
r. bottom = r.top + 3; 

r.left = PQW_Y + MO_t rune (orbitinf o . pqw . X * pqw_scale) - 2; 
r. right = r.left + 3; 

FillOval(&r, black); 

} 

break; 

} 



j -k ★★★★★★★★★★★★★★★★★★★★★★ MO D r a WP Q W k-k'k'k-k'k-k'k'k'k'k'k'k-k'k-k-k-kk-k-k'k'k-k'k-k'k 



I'k'k'k'k'k'kk'k'k'k'k'k'k-k'k'k'k'k'k'k'k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 
MO_DrawGEO : draws orbit in GEO coord system 

★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★a k A'k'kk-k'k-kk'k-k-k'k-k-k-k'k'k-k'k'k-k'k 



void 



MO_DrawGEO( orbitinfo, theWind) 
Orbitinfo orbitinfo; 

WindowPtr theWind; 



{ 

static Rect 
int 

double 

double 

Rect 

int 



mapRect= {60^ 10, 60+85, 10+208}; 

/* (160+9)72=85, 614/2=208 
xpos, ypos; 

pqw__scale= 208.0/360.0; 

/* pixels /degree long & lat 
lat. Ion; 
r ; 

i; 



*/ 

) ; 

*/ 

*/ 

*/ 



*/ 

★ ★ ★ 
*/ 

*/ 

*/ 
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MoveTo (10, 44) ; 

Drawstring (”\pGEO Graphic view”); 

FrameRect (&mapRect) ; 

if (prefer . showaxes) 

{ 

for (i= 1; i<12; i= i+1 ) 

{ /* draw lines of longitude */ 

xpos = i* (208/12) + 11; 
if (i!=6) 

PenPat (gray) ; 

MoveTo(xpos, 60); 

LineTo(xpos, 60+85-1); 
if (i!=6) 

PenNormal ( ) ; 

} 

for (i= 0; i<6; i= i+1 ) 

{ /* draw lines of latitude */ 

if (i!=3) 

PenPat (gray) ; 
ypos = i*(85/6) + 60; 

MoveTo (10, ypos ) ; 

LineTo (10+208-1, ypos) ; 
if (i!=3) 

PenNormal ( ) ; 

} 

PenNormal ( ) ; 

} 

lat = cv_gangd (orbitinfo .geo . latitude) ; 

Ion = cv__gangd (orbit info .geo . longitude) ; 
if ( (0.0 <= Ion) && (Ion <= 180.0)) 

xpos = (Ion * pqw^scale) + (10 + 208/2) ; 
else if ((180.0 < Ion) && (Ion <= 360.0)) 
xpos = ((Ion-180) * pqw__scale) + 10 ; 
else 

xpos = 0; 

ypos = ((90-lat) * pqw_scale) + 60; 

r.top = ypos -2; 
r. bottom = ypos +2; 
r.left = xpos - 2; 
r . right = xpos + 2 ; 

FillOval(&r, black) ; 

} /★ *★★*★★★★★★★★★★★★★★★★★★ jwjo DrawGEO **************************** */ 
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MO_MaintainPlot : updates plotting in each orbit window 

* j 

void 

MO_MaintainPlot ( ) 

{ 



Rect 

WindowPtr 
Orbitinf o 
long int 
long int 
GrafPtr 
RgnHandle 
Angle 



contentRect ; 
theWind; 

*orbitinf o ; 

scaling;/* time compression scaling factor 
increment;/* incremental time since last look 
savePort ; 
tempRgn; 

eccen_anom; /* New after updating sat pos 



*/ 

*/ 



scaling = 60 *60 /prefer . time_comp; 

/* numticks in minute * compression 
increment = ( (TickCount ( ) - prefer . elapsed_time) /scaling) ; 
if ( „'iment < prefer . draw_incr) 

return; /* Not enough time elapsed yet 

prefer. time = prefer. time + increment *60 ; 

/* convert into wall clock seconds 
if ( (prefer . plot_durat ion == plONE) 

&& (prefer. time > prefer . stop_time) ) 

{ 

SysBeep(2); /* notify user that we are 

prefer . plotting = FALSE;/* out of time - stop plotting 

prefer . changes = TRUE;/* Update the menu items 

return; 



*/ 

*/ 



prefer . elapsed_time = TickCount (); 





/* 


reset the timer for 


next update 


*/ 




/* 


Determine Eccentric 


Anomaly 


*/ 


GetPort (&savePort) ; 


/* 


★*****★★ UPDATE ALL 


WINDOWS **★**★*★ 


*/ 



theWind = MC_FirstWindow ( ) ; 
while (theWind != NIL) 



SetPort (theWind) ; 

/* use content rgn bounding box 
/* to mask out scroll bar areas 
tempRgn = ( (WindowPeek) theWind) ->contRgn; 
contentRect = (*tempRgn) ->rgnBBox; 

contentRect .bottom = (contentRect .bottom - contentRect . top) 

- SBarWidth; 

contentRect . right = (contentRect . right - contentRect . left ) 

- SBarWidth; 

contentRect .top = 0; 
contentRect . left = 0; 

ClipRect (&contentRect) ; / * Set it in Global coords 



*/ 

*/ 
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orbitinfo = (Orbitinfo *) (( (WindowPeek) (theWind) ) ->refCon) ; 



eccen_anom = kl_gecca (& (orbitinf o->orbitdata) , 

(orbit inf o->orbitdata) . epoch + prefer. time ); 
cs__gi jkc (orbitinf o->orbitdata, & (orbitinf o->i jk) ) ; 

/* get position in UK Coords */ 

cs_gpqwc (orbitinfo->orbitdata, & (orbitinf o->pqw) ) ; 

/* get position in PQW Coords */ 

cs_ggeoc (orbitinf o->orbitdat a, prefer . time/ 3 600 . 0 , 

& (orbitinf o->geo) ) ; 

/* get position in Geographic Coords */ 

if (prefer . showmap) /* Add each orbit to Map Background */ 

MO_DrawMapUpdate (*orbitinf o, mapWindow) ; 

if (orbitinf o->t ext only) 

MO_Text Only ( *orbit info) ; 
else 
{ 

MO_DrawALL ( ^orbitinf o, theWind) ; 
switch (orbitinf o->coordinates) 

{ 

case IJK__COORDS: 

MO_DrawI JK ( *orbitinf o, theWind) ; 
break; 

case PQW_COORDS: 

MO_DrawPQW (*orbitinf o, theWind) ; 
break ; 

case GEO_COORDS : 

MO_DrawGEO (*orbitinfo, theWind) ; 
break; 

} /* endswitch */ 

} /* endelse */ 

orbitinf o->last_geo . altitude = orbitinf o->geo . altitude; 
orbit inf o->last_geo . latitude = orbitinf o->geo . latitude; 
orbitinf o->last_geo . longitude = orbitinfo->geo.longitude; 
orbitinfo->last_i jk.x = orbitinfo->ijk.x; 
orbitinfo->last_i jk .y = orbit inf o->ijk . y; 
orbitinfo->last_i jk. z = orbitinf o->ijk . z ; 
orbitinf o->lastU3qw . X = orbit inf o->pqw.x; 
orbit inf o->last_pqw.y = orbitinfo->pqw.y; 
orbitinf o->last_pqw . z = orbitinf o->pqw . z ; 

ClipRect (& (screenBits .bounds) ) ; 



/* Reset the clipping rectangle */ 
theWind = MO^NextWindow (theWind) ; 

} /* endwhile */ 
SetPort (savePort) ; /* ****** ENDUPDATE ALL WINDOWS ******* */ 
prefer . first_plot = FALSE;/* terminating first plot sequence */ 



J j -k -kk -k k -k -k k k -k -k -k ± ~k k k k k k k ~k k MalntalnPlot ************************ */ 
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^iricificiririciciriricif'k'k'k-k-k'k'k-k'k'k'k'k'k-k'k'k-k'k'k'k'k-k'k'k-k-k-k'k'k'k'k'k'k'k'k-k'k'k'k'k'k'k'k-k'k'k'kic'k-k-k-k'k'k'k-kic'k 



FILENAME 

DESCRIPTION 

ENVIRONMENT 

AUTHOR 

ADVISORS 



REMARKS 

VERSION 



MacOrbits .pr .c 

printing interface for MacOrbits. c 
Macintosh SE 1Mb 
LightSpeed™ C v2.15 
Captain Kenneth L. BEUTEL USMC 
(Portions copyright Think Technologies) 
Prof. Dan Davis 
Prof. Dan Boger 

Naval Postgraduate School^ Monterey CA 
uses screendraw routines in MacOrbits . pi . c 
0.9 (3/6/88) 



CHANGES 



3/6/88 Formatted for MacWrite 



'k'k'k'k-k-k-k-k'k-k-k-k'k-k-k'k'k-k-k'k-k-k'k-k-k'k-k'k'k-k'k'k'k'k'k'k-k'k-k'k'k'k'k'k'k'k'k'k'k'k'k-k'k'k'k'k'k'k'k'k 



conversion 

★ ★★★★★★★★ -k ^ 



#include 
finclude 
#include 
# include 
finclude 
finclude 
#include 
#include 
finclude 
finclude 
#include 
finclude 
finclude 
finclude 



"QuickDraw. h” 
"MacTypes . h” 
"FontMgr .h" 
"WindowMgr . h” 
"MenuMgr . h" 
"TextEdit .h” 
"DialogMgr . h" 
"EventMgr .h" 
"DeskMgr . h" 
"FileMgr . h" 
"ToolboxUtil .h" 
"ControlMgr . h" 
"PrintMgr . h" 
"stdio.h” 



finclude "LightSpeed Disk: Thesis C fiStdLib.h” 

finclude "MacOrbits . h" 
finclude "MacOrbits . proto . h" 

extern Preferences prefer; /* preferences for how things look 



*/ 



/* ****★★ SPECIFIC PRINTING VARIABLES *** */ 

Static THPrint hPrint = NIL; 



^•k'k'k-k-k'k-k-k-k'k'k-k'k-k-k-k-k-k'k-k-k'k'k-k'k-k-kk-k-kk-k-k-kk-k-kir-k-k-k-kir-k-k-kir-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-kkk-k-k 

MO_CheckPrint Handle : fetches a print handle if one doesn’t exist 

•k-k-kk-k-k-k-k-k-k-k-k-kk-k-k-kir-k-k-k-kir-k-k-k-k-kk'k-k-k-k-k-k-k-k-k-kk-k-k-kk-kk'k-k-kkk-kkk-k-k-k-k'k'k-k-k-k'k-k'k k j 

void 

MO_CheckPrint Handle ( ) 
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if (hPrint==NIL) 

PrintDef ault (hPrint = (TPrint **) NewHandle ( sizeof ( TPrint ))); 

! 'k 140 CheckPrintHandle ★★★★★★★★★★★★★★★★★★★★★ ★/ 



MO_PageSetUp : call the std page setup dialog 
void 

MO_PageSetUp ( ) 

{ 

char errormsg [ 40 ] ; 

PrOpen () ; 
if (PrErrorO) 

{ 

sprintf (errorrasg, "Sorry, a printer error = %d", PrErrorO); 
CtoPstr (&errormsg) ; 

MO_Generic (errormsg, "\poccurred . " ) ; 

} 

else 

{ 

MO_CheckPrintHandle ( ) ; 

PrStlDialog (hPrint ) ; 

PrClose ( ) ; 



j it ★★★★★★★★★★★★★★★★★★★★★ MO PageSetUp 'k'k'k'k-k-k-k'kk'k-k-k'k-k-k-k'k-k'k-k-k-k-k'k-k-k-k -k j 



J'k'k-kk'k-k'k-k'k-k-k-k'k-k'kk'kir-k'k'k'k'k'k'k'k'k-k'k'k'k'k-k-k-k'k'k'k'k'k'k'k'ki^-k'k-k'k'k-k'k-k'k'k-kkk-k'k'kkk-k'k-kk'k'k 

MO_PrintOrbitText : print the orbit data 
void 

MO_PrintOrbitText (theWind) 

WindowPtr theWind; 



PrOpen ( ) ; 

MO_CheckPrintHandle () ; 
if (PrErrorO) 

{ 

sprintf (errormsg, "Sorry, a printer error = %d", PrErrorO); 
CtoPstr (&errormsg) ; 



GrafPtr 

TPrStatus 

int 

char 

TPPrPort 
Orbitinf o 



savePort ; 
prStatus ; 
copies; 



errormsg [40] ; 
printPort ; 
*orbitinfo; 
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MO_Generic (errormsg^ ” \poccurred . ) ; 

} 

else if (Pr JobDialog (hPrint) != 0) 

{ 

MO_Wait{); 

GetPort (&savePort) ; 

printPort = PrOpenDoc (hPrint ^ NIL^ NIL) ; 

TextFont (geneva) / 

TextSize (10) ; 

PrOpenPage (printPort, NIL) ; 

orbitinfo = (Orbitinfo *) (( (WindowPeek) (theWind) ) ->refCon) ; 

if (orbitinf o->textonly) 

MO_TextOnly ( *orbitinf o) / 
else 



{ 



MO_DrawALL ( *orbitinf o, (WindowPtr) printPort); 
switch (orbitinf o-'^cr''rdinates) 

{ 

case IJK__COORDS : 

MO_DrawIJK ( *orbitinf o, (WindowPtr) printPort) ; 
break; 

case PQW_COORDS: 

MO_DrawPQW ( *orbitinf o, (WindowPtr) printPort) ; 
break; 

case GEO_COORDS : 

MO_DrawGEO ( *orbitinf o, (WindowPtr) printPort); 
break; 

} 



} 



PrClosePage (printPort ) ; 

PrCloseDoc (printPort) ; 

for (copies=MO_HowMany ( ) ; copies>0; copies = copies -1) 

{ /* image the print and then */ 

PrPicFile( hPrint, NIL, NIL, NIL, &prStatus ); 

} 

SetPort (savePort) ; 

} 

PrClose ( ) ; 

SetCursor ( Harrow ); 

j, ! if ★★★★★★★★★★★★★★★★★★★★★ MO P r into rb it Text '*★***★***'**★*■*■**''**'*'*★*' / 



MO_HowMany : get the number of copies requested 

★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★■jic**************************'**** j 

int 

MO_HowMany ( ) 
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return { ((**hPrint) . pr Job .bJDocLoop==bDraftLoop) ? 

( **hPrint ) .prJob . iCopies : 1 ); 

I -k kk-k'k'k'kkk'k'k'k'kk'k'k'k-k'k'k'k-k HOWMaHy ***************************** */ 
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^ifiiif'kificififificitififif'k'k^kif'k'k'k'k'kificie'k'kicific'kifif'k'k'k'kif'k'k'k'k'k'k'k'kic'k'kicif'k'k'k-k'k'k'k'kif'k'k'k'k'k'k'k'k 



FILENAME 

DESCRIPTION 

ENVIRONMENT 

AUTHOR 

ADVISORS 



REMARKS 

VERSION 



MacOrbits . ut . c 

utilities for MacOrbits. c 

Macintosh SE 1Mb 

Light Speed™ C v2.15 

Captain Kenneth L. BEUTEL USMC 

Prof. Dan Davis 

Prof. Dan Boger 

Naval Postgraduate School^ Monterey CA 
contains misc interface functions 
0.9 (3/6/88) 



CHANGES 



3/6/88 Formatted for MacWrite conversion 



ic'k'k-kif-kic'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'kic'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'kic'k'k'kic'k'kif'k'k'k'k'k'kicic'k -k j 



#include 

finclude 

finclude 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 



"QuickDraw . h" 
"MacTypes . h" 
"FontMgr . h" 
"WindowMgr . h" 
"MenuMgr . h" 
"TextEdit .h" 
"DialogMgr .h" 
"EventMgr .h" 
"DeskMgr .h" 
"FileMgr . h” 
"ToolboxUtil . h" 
"ControlMgr . h" 
"stdio.h" 



#include "LightSpeed Disk: Thesis C frStdLib.h” 

#include "MacOrbits . h” 
finclude "MacOrbits . proto . h" 

extern Cursor watch; 

extern Preferences prefer; /* preferences for how things look 



*/ 



MO__Wait : display the wait cursor (used for long operations) 

'k'k-k-k'k'k'k'kk'kk'k-k-k-kk-k'k'k-k'k'k'k'k'k'k-k'k'k'k'k'k'k-k-k'k'k-k-k'kk'k'kk-k'k'k'kkkkk'k'k-kkkkk'k'kk'k'k'k'k k j 

void 

MO_Wait 0 

{ 

SetCursor( &watch ); 

J ^k kkkkkkkkkkkkkkkkkkkkkkk JwJQ Wait kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk kj 
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MO_pStrCopy : copies one Pascal string from pi to p2 
★ ★★★********************************^**********'***********'********* 

void 

MO_pStrCopy( pl^ p2 ) 

char *plf *p2; 

( 

register int len; 

len = *p2++ = *pl++; 

while ( — len>=0) *p24-+=*pl4-4-; 

I j ~k ★*■**•**★•*★■**★★★*'*★★*■★★ j>*jQ pStrCopy *****'*******'*************^** 



MO_pStrConcat : concatenates pascal string p2 behind pi and 
returns ptr to result out. 

it***************************************************************** 

void 

MO_pStrConcat ( pl^ p2, out ) 

Str255 pl^ p2^ out; 

{ 

register int i; 

int lenl^ len2; 

char temp [256]; 



lenl = pi [0] +1; 
len2 = p2 [0]+l; 



/* length including length byte 



for (i=0; i<lenl; i = i+1) 
temp [i] = pi [i] ; 



for (i=l; i<len2; 


i = 


i+l) 


temp [ (lenl-1) 


+i] 


= p2[i]; 


temp[0] = lenl + 


len2 


- 2; 


MO^jpStrCopy (temp. 


out) 


/ 



} ★★*★**********★*★*★★ pstrConcat *************************** */ 



/★*★★★****★★*★*★*★★★*******★★**★*******★★★*★★★***★**★*★★**★★★***★*•*■** 
MO_jpStr2Num ; converts pascal string str into a floating point 

★ *★★***★★★*****★★********★***★★★★★★*★★*★*********★***★****•*■**★**** */ 
double 

MO_pStr2Num( str ) 

Str255 *str; 

( 

int items, next; 
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double 

double 

char 



after; 
result ; 
temp [256] ; 



MO_pStrCopy (str, temp) ; 
if (temp[0] == 0) 
return (-1.0) ; 

result =0.0; 
next = 1 ; 

while ((temp [next] != *.*) && (next<=temp [0 ] ) ) 

{ ! numbers leading decimal point ! 

if ( (temp [next ]>=* 0 * ) && ( temp [next ] <= * 9 * ) ) 
result = result * 10.0 + (temp [next ]-* 0 ') ; 
else 

return (-1 . 0) ; 
next = next + 1 ; 

} 

if (next<=temp [0] ) 

{ /* either done or a decimal pt . */ 

if (temp [next] != *.*) 
return (-1.0) ; 

else /* not done process numbers after dec */ 



while (next<=temp [0 ] ) 

{ 

if ( (temp [next ]>=* 0 * ) && ( temp [next ] <= * 9 * ) ) 

result = result + ( (temp [next ]-* 0 * ) / after ); 

else 

return (-1.0) ; 
next = next + 1; 
after = after * 10.0; 



MO_pStr2 Julian : converts pascal string str into a julian date 
double 

MO_pStr2 Julian ( str ) 

Str255 *str; 



next = next + 1; 

after = 10.0; /* tenths is first pos after the dec pt . ! 



/* shift over to next decimal position */ 



return ( result ) ; 
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{ 

int 

double 

double 

char 



next ; 

months day^ year; 

result; 

temp [25 6] ; 



MO_pStrCopy (str, temp) ; 
if (temp[0] “ 0) 
return (-1 . 0) ; 



month = 0.0; 
day = 0.0; 
year = 0.0; 
next = 1 ; 

while ((temp [next] != */*) && (next<=temp [ 0 ] ) ) 

{ /* numbers before first slash */ 

if ( (temp [next ]>=’ 0 * ) && (temp [next ] <= * 9 * ) ) 
month = month * 10.0 + (temp [next ]-* 0 *) ; 
else 

return (-1.0) ; 
next = next + 1 ; 



if (temp [next] 1= */*) 
return (-1 . 0) ; 

else /* not done process numbers after slash */ 

next = next + 1 ; 

while ((temp [next] != V') && (next<=temp [ 0 ] ) ) 

{ /* numbers between slashes */ 

if ( (temp [next ]>=’ 0 ’ ) && (temp [next ] <= * 9 ' ) ) 
day = day * 10.0 + (temp [next ]-’ 0 *) ; 
else 

return (-1.0) ; 
next = next + 1; 



if (temp [next] != ’/’) 
return (-1.0) ; 

else /* notdone process numbers after slash2 */ 

next = next + 1 ; 

while ((temp [next] != */*) && (next<=temp [ 0 ] ) ) 

{ /* numbers after slashes */ 

if ( (temp [next ]>=* 0 ’ ) && (temp [next ] <= ' 9 * ) ) 
year = year * 10.0 + (temp [next ]-* 0 *) ; 
else 

return (-1.0) ; 
next = next + 1 ; 

} 
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result = tl_gjuld (month, day, year) ; 
return ( result )/ 




MO_Generic : 2 Pascal strings displayed in a 1 stage Alert 

★ -k j 

void 

MO_Generic( si, s2 ) 

Str255 si, s2; 

{ 

ParamText ( si, s2,”\p”, ”\p”) ; 

Alert ( GenericAlert ID, OL ) ; 

J j k kkkkkkkkkkkkkkkkkkkkkkk JwJQ G0neriC kkkkkkkkkkkkkkkkkkkkkkkkkkk k j 



jkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

MO_OutlineButton : outlines a button round rect with a heavy line 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k j 

void 

MO_OutlineButton ( r, theDialog ) 

Rect r; 

DialogPtr theDialog; 



GetPort (&port) ; 

SetPort ( (GrafPtr) theDialog); 
local = r; 

GetPenState (&ps) ; 

PenSize (3,3) ; 

InsetRect (&local, -4,-4) ; 

FrameRoundRect (&local, 16, 16); 

SetPenState (&ps) ; 

SetPort (port) ; 

J jk k k k k k k k k k k k k k k k k k k k k k Qut 1 IneBut t On ★*★***★*★***★**★★**★★★★ */ 

jkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

MO_Pause : stop everything for x seconds 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk'Kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k j 

void 

MO Pause ( X ) 



PenState 

Rect 

GrafPtr 



ps; 

locale- 

port; 
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int 



x; 



{ 

long int numTicks, finalTicks; 

numTicks = x * 60; 

Delay (nurtiTicks, &finalTicks) ; 

J J -k 'k'k'k-k'k'k'k'k-k'k-k'kk-k'k-k'k'k-k-k'k-k-k'k'k J-JQ P3US0 *****■**■*■****■*■*■*■*■■*■*****★**★* kj 



j'k-k-kkk'k'kkk'k'k'k-k'k'kk-k'k'k-kk'k'k'k'k'kkk'kk-k'k'kk-k-k'kk'k'k'kkk'k'kkkk'kkk-k'kkkk'k'k’kkkk'k'kkkkk 

MO_trunc : trade a double in for an integer 

k'kk-kk'k’kk'k'k'kkk-k-kk'k-kkk-k-k'kk'k'kkk'k-k-k-k-kkk-k'kkk-k-kkk-k-kkkk'kkk-k-k-kkk-k-kkkkk-kkk'k -k j 



int 

MO_trunc( x ) 

double x; 

{ 

int result; 



result = x; /* convert to integer type */ 

return ( result ) ; 

J jk k'k'kk-k-k-kkk-kk-k-k-kk-k'k'kk-k-k-kk'k'k JwJQ trUnC '^'^k-k-k-kk-k-kkk-kkk-kkkk-kkkkk'k-kkk kj 
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FILENAME 

DESCRIPTION 

ENVIRONMENT 

AUTHOR 

ADVISORS 



REMARKS 

VERSION 



MacOrbits . wm. c 

window manager interface for MacOrbits. c 
Macintosh SE 1Mb 
LightSpeed™ C v2.15 
Captain Kenneth L. BEUTEL USMC 
(Portions Copyright Think Technologies) 
Prof. Dan Davis 
Prof. Dan Boger 

Naval Postgraduate School^ Monterey CA 
contains window drawing functions 
0.9 (3/6/88) 



CHANGES 



3/6/88 Formatted for MacWrite conversion 



********************************************************************* 



#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 



"QuickDraw . h" 
"MacTypes .h” 
"FontMgr . h” 
"WindowMgr . h" 
"MenuMgr . h" 
"TextEdit .h” 
"DialogMgr .h" 
"EventMgr .h" 
"DeskMgr . h" 
"FileMgr . h" 
"ToolboxUtil.h" 
"ControlMgr .h" 
"stdio.h" 



#include "LightSpeed Disk: Thesis C fiStdLib.h" 

#include "MacOrbits .h" 

#include "MacOrbits .proto .h" 



extern Preferences 
extern BitMap 
extern MenuHandle 



prefer; /* preferences for how things look 
globePics [MAXGLOBES] ; 
myMenus [specialM + 1] ; 



*/ 



Point 

static WindowPtr 



theOrigin;/* position to start drawing windows */ 
WindowStorage [MAXWINDOWS ] = 

{ NIL, NIL, NIL, NIL, NIL}; 



MO_CreateWindow : Create the std window used in program 
void 
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MO_CreateWindow (theWind^ slotnum) 
Window? tr *theWind; 

int *slotnum; 



WindowPeek 
Orbitinf o 
int 

Str255 



myPeek; 
*orbitinfo; 
i f j ' 

buildStr ; 



/* The array WindowStorage holds MAXWINDOWS worth of window pointers, 
once these are used up this function returns NIL to indicate out of 
memory condition. WindowStorage slots may be reused in window has 
been deallocated with MO RemoveWindow { ) . */ 



i=0; 

while { (KMAXWINDOWS) && (WindowStorage [ i] !=NIL)) 

{ /* scan for an available slot */ 

i=i+l ; 

} 



if ( (WindowStorage [i] !=NIL) || (i==MAXWINDOWS) ) 

{ 

*theWind = NIL ; /* no available slots */ 

return; 

} 



WindowStorage [i] = GetNewWindow ( windowID, NTJLL^ INFRONT ); 

SetPort (WindowStorage [i] ); /* allocate window record on heap */ 

/* create a ptr for orbit stuff and 

store initial values in it */ 

TextSizeO); /* Use 9 pt text */ 

orbitinfo = (Orbitinfo*) NewPtr( sizeof (Orbitinfo) ); 

orbitinfo->slotnum = i;/* save the slotnumber for later use */ 

orbitinf o->dirty = FALSE; 

orbitinf o->newfile = TRUE; 

/* Assume data source is not a file */ 

orbitinf o->textonly = FALSE; 

orbitinf o->coordinates = I JK_COORDS ; 

orbitinf o->lastview = 0;/* Current view of spinning globe */ 



NumToString (i^ buildStr) ; 

MO_j?StrConcat (”\pWindowStorage#”^ buildStr, buildStr) ; 

MO__pStrCopy ( buildStr, orbitinfo->test ); 

myPeek = (WindowPeek) (WindowStorage [ i] ) ; 

/* copy ptr to orbit stuff in window */ 

myPeek->refCon = (long) orbitinfo; 

/* return the new WindowPtr and slot no */ 
*theWind = WindowStorage [i] ; 

*slotnum = i; 
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prefer . changes = TRUE; /* Flag potential changes to menu */ 

/* Shift the window origin down and bring up bottom edge in std way */ 
MoveWindow (*theWind, WINDOW_H+ (i*5) , WINDOW_V+ (i*l 6) , FALSE) ; 
SizeWindow (*theWind, (WH_MAX-WINDOW_H) , ( (2 96-WINDOW_V) - (i*16) ) , TRUE) ; 

ClipRect (& (screenBits .bounds) ) ; 

/* avoid bug from Apple TN #59 */ 

j j -k ★★★★★★★★★★★★***★★★*★★ jwjQ CreateWindow ★/ 



MO_isNewFile : Check to see if window’s data didn’t come from a file 
int 

MO_isNewFile (theWind) 

WindowPtr theWind; 

{ 

Orbit Info *orbitinf o; 

if ( (theWind==NIL) | | ( !MO_ours (theWind) ) ) 

return (FALSE) ; /* no window so can’t come from file */ 

orbitinfo = (Orbitinfo*) (( (WindowPeek) theWind) ->refCon) ; 
return (orbitinfo->newfile) ; 

J jk k k k k k k k k k kk k k k k k k k k k JwJQ isNewFile k k k k k k k k k k k k k k k k k k k k k k k k k k k k kj 



jkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

MO_isDirty : Check to see if data assoc w/window has been changed 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k J 

int 

MO_isDirty (theWind) 

WindowPtr theWind; 

{ 

Orbitinfo *orbitinfo; 

if ( (theWind— NIL) | | ( !MO_ours (theWind) ) ) 

return (FALSE) ; /* no window there so it must be clean */ 

orbitinfo = (Orbitinfo*) (( (WindowPeek) theWind) ->refCon) ; 
return (orbitinf o->dirty ) ; 

J /k kkkkkkkkkkkkkkkkkkkk jwjQ IsDirty ****************************** */ 
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/★★*★**★★★★**★***★**★★*★★★**★*★*★*★★*★*★★***★★★***★*★*★★**★********** 
MO_SetDirty : Set dirty bit to indicate window data has been changed 
•*★•*•***•*★★★***■*★★*★•*★★★★**★★*★★★*★***★*■*•*★★****★***★**★*★★**★****** */ 
void 

MO_SetDirty (theWind, thebit ) 

WindowPtr theWind; 

Boolean thebit; 

{ 

Orbit Info *orbitinfo; 

if { (theWind==NIL) 1 | { !MO_ours (theWind) ) ) 

return; /* no window there so it must be clean */ 

orbitinfo = (Orbitinfo*) {( (WindowPeek) theWind) ->refCon) ; 
orbitinf o->dirty = thebit; 

j j -k ★★*★★*★★**★★**★*★★★* SetDirty ***************************** */ 



MO_ours : See if window is one created by the program 

*★★★★★★★*★★★*★★★★*★***★**★★*★★****★*★★****★**★*★★★****★★**★*★**★★★ k ! 

int 

MO_ours (theWind) 

WindowPt r theWind ; 

{ /* Scans through the Window storage list tying to match pointers */ 
int i ; 

i = 0; 

while { (i < MAXWINDOWS) && (theWind != WindowStorage [i] ) ) 

{ 

i = i + 1; 

} 

if ( (WindowStorage [i] == NIL) || (i == MAXWINDOWS)) 

return (FALSE) ; /* No match so not the programs window */ 

else 

return (TRUE) ; /* It is the programs window */ 

J Jk kkkkkkkkkkkkkkkkkkkkk JwJQ QUrS ******************************** */ 



^kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

MO_AvailWind : Check to see if there is room for another orbit window 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k / 

Boolean 
MO__AvailWind ( ) 

{ 
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int 



i; 



i = 0; 

while (i < MAXWINDOWS) /* Scan for any available opening... */ 

{ 

if (WindowStorage [i] == NIL ) 

return (TRUE) ; /* if an opening is found return true */ 

i = i + 1 ; 

) 

return (FALSE) ; /* if no opening then return false */ 

j it. ★★★★★★★★★★★★★★★★★★★★★ MO AvsilWind **************'*'*'*^*'’’f'**'*'**'*'** * j 



MO_DuplicWind : Does a window already exist by the same name? 

★ -k ! 

Boolean 

MO__DuplicWind (newname) 

Str255 newname; 

{ 

int i; 

Str255 windname; 

Str255 str; 

i = 0; 

while (i < MAXWINDOWS) /* Scan for any existing window. . . */ 

{ 

if (WindowStorage [i] != NIL ) 

{ 

GetWTitle (WindowStorage [i] ^ windname) ; 
if (Equalstring (windname^ newname, FALSE, FALSE)) 

{ 

PtoCstr (&windname) ; 

sprintf (str, "Sorry, the name *%s* is already in use. ”, 
windname) ; 

CtoPstr (&str) ; 

MO_Generic (str, ”\p Please choose another.”); 

return (TRUE) ; /* if the name is found return true */ 

) 

) 

i = i + 1 ; 

) 

return (FALSE) ; /* if no opening then return false */ 

I /* ********************* jyjQ DuplicWind ************************** */ 
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MO_RemoveWindow ; Release storage for window created by the program 
*************************************************************’*****’ */ 
void 

MO__RemoveWindow (theWind) 

WindowPtr *theWind; 

{ 

WindowPeek myPeek ; 

int i ; 

Str255 stri; 

i = 0; 

while ((i < MAXWINDOWS) && (WindowStorage [ i] != *theWind) ) 

{ 

i = i + 1; /* scan until the pointer is found */ 

} 

if (WindowStorage [i] == *theWind) 

WindowStorage [i] = NIL;/* zap the window from storage */ 

else 

return; 

NumToString (i+1^ stri) ; 

MO_pStrConcat ("\pOrbit Window stri^ &stri) ; 

Set Item (myMenus [windowM] ^ i + 5^ stri) ; 

Disableltem (myMenus [windowM] , i + 5); 

myPeek = (WindowPeek) *theWind; 

DisposPtr (myPeek->refCon) ; / * deallocate ptr for orbit stuff */ 

HideWindow (*theWind) ; 

prefer .changes = TRUE; /* Flag potential changes to menu */ 

j ^ ~k ★★★★★★★★★★★★★★★★★★★★★ MO RemovoWindow ***************************** 



^'k'kii'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k'k'k'k'k-k'k'k'k 

MO_HideWindow : hide the window from view 
void 

MO_HideWindow (theWind) 

WindowP t r theWind ; 

{ 

int i ; 

i = 0; 

while ( (i < MAXWINDOWS) && (WindowStorage [ i] != theWind) ) 

{ 

i = i + 1; /* scan until the pointer is found */ 

) 

if (WindowStorage [i] != theWind) 
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return; 



HideWindow (theWind) ; /* hide the window */ 

prefer . changes = TRUE; /* Flag potential changes to menu */ 

j 'k MO HideWindow ★*★*★*★*★★****★**★★★★*★★ k j 



Jkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

MO_ShowWindow : show the window again 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk k j 

void 

MO_ShowWindow (slotnum) 

int slotnum; 

{ 

if (WindowStorage [slotnum] “ NIL) 
return; 

ShowWindow (WindowStorage [slotnum] ) ; 

SelectWindow (WindowStorage [slotnum] ) ; 

prefer . changes = TRUE; /* Flag potential changes to menu */ 

J jk k k k k k k k k k k k k k k k k k k k k k k k MO ShOWWindOW k k k k k k k k k k k k k k k k k k k k k k k k kj 



jkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

MO_FirstWindow : Find any pointer to a window created by the program 

★ k j 

WindowPtr 
MO^FirstWindow ( ) 

{ /* Scans through the Window storage list for 1st non empty slot */ 
int i ; 

i = 0; 

while ((i < MAXWINDOWS) && (WindowStorage [ i] == NIL)) 

{ 

i == i + 1; 

} 

if ( (WindowStorage [i] =- NIL) || (i == MAXWINDOWS)) 

return (NIL) ; /* No match so no program windows left */ 

else 

return (WindowStorage [i] ) ; 

/* The first program window found */ 

J jk k k k k k k k k k k k k k k k k k k k k k FirStWindOW ************************* */ 
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y'******************************************************************** 

MO_UpdateWindow : Handle update event for program windows 
*★★★*★*******★******★★★★★★****★★★**★*'★*************★********'***★** */ 



void 

MO_UpdateWindow (theWind) 

WindowPtr theWind; 



{ 

GrafPtr 

Rect 

Rect 

Orbitinf o 
RgnHandle 



savePort ; 
r; 

plotRect ; 
*orbitinf o; 
oldContent ; 



GetPort ( &savePort ); 

SetPort ( theWind ) ; 

oldContent = ( (WindowPeek) theWind) ->contRgn; 

r = (*oldContent ) ->rgnBBox; /* Get content region bounding box */ 

r. bottom = (r. bottom - r.top) - (SBarWidth) ; 
r. right == (r . right~r . left ) - (SBarWidth); 
r . top - 0 ; 
r.left - 0; 

ClipRect (&r) / /* Clip the scroll bar areas */ 



BeginUpdate { theWind ) ; 



orbitinfo = (Orbitinfo *) {( (WindowPeek) (theWind) ) ->refCon) ; 

cs_gi jkc (orbitinf o->orbitdata, & (orbitinf o->ijk) ) ; 

/* get position in UK Coords */ 

cs_gpqwc (orbitinf o->orbitdata^ & (orbitinf o->pqw) ) ; 

/* get position in PQW Coords */ 

cs_ggeoc (orbitinfo~>orbitdata^prefer .time/3600 . 0^ & (orbitinf o->geo) ) ; 

/* get position in Geographic Coords*/ 



if (orbitinf o->t ext only) 

{ 

EraseRect (& (theWind->portRect ) ) ; 
MO_TextOnly (*orbitinf o) ; 

} 

else 

{ 

plotRect = theWind->portRect ; 

plotRect. top = plotRect. top + (2*BOX_V+2) ; 

EraseRect (&plotRect) ; 

MO__DrawALL (*orbitinfo^ theWind) ; 
switch (orbitinfo~>coordinates) 

{ 

case IJK_COORDS: 

MO_DrawI JK ( *orbitinf o^ theWind) ; 
break; 

case PQW COORDS: 
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theWind) ; 



MO_DrawPQW ( *orbitinf o, 
break; 

case GEO_COORDS : 

MO_DrawGEO ( *orbitinf O/ theWind) ; 
break; 

1 



ClipRect (&screenBits .bounds) ; 

/* Restore clip to whole screen */ 

DrawGrowIcon ( theWind ); 

EndUpdate ( theWind ) ; 

SetPort ( savePort ) ; 

jwjQ tjpdateWindow ************************ 



MO_GrowWindow : Handle growWindow event for program windows 



void 

MO_GrowWindow ( 
WindowPt r 
Point 

{ 

GrafPtr 

Rect 

long 

Point 

Boolean 

Point 



theWind, p ) 
theWind; 
p; 



savePort; 

newRect, growRect; 
theResult ; 
thePt ; 
savepref er ; 

largest;/* largest area that is not erased 



*/ 



GetPort ( SsavePort ) ; 

SetPort ( theWind ) ; 

SetRect (&growRect , 80, 80, WH_MAX-WINDOW_H, screenBits .bounds .bottom) 

theResult = GrowWindow ( theWind, p, SgrowRect ); 
thePt.h - LoWord{ theResult ); 
thePt.v = HiWord( theResult ); 

/* The next 3 calls: SizeWindow ( ) , */ 

/* EraseRectO, InvalRectO */ 

/* must come in order specified! */ 

/* (Chernikoff Vol.2 Pp.103) */ 

newRect = ( ( *theWind) . portRect ) ; 
largest. h = newRect . right ; 
largest. V = newRect . bottom ; 

SizeWindow( theWind, thePt.h, thePt.v, TRUE ); 
newRect = ((*theWind) .portRect); 
if (newRect . right>largest . h) 
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newRect.left = largest. h- (SBarWidth+1) ; 
else 
{ 

newRect.left = newRect . right- (SBarWidth+1) ; 
newRect . right = largest. h-1; 

} 

EraseRect ( &newRect ); /* only erase increased rect to right */ 

newRect = ( (*theWind) .portRect) ; 
if (newRect .bottom>largest . v) 

newRect. top = largest. v- (SBarWidth+1) ; 
else 
{ 

newRect. top = newRect . bottom- (SBarWidth+1) ; 
newRect .bottom = largest. v-1; 

} 



EraseRect ( &newRect ); /* only erase increased rect to bottom */ 

InvalRect ( & ( (*theWind) .portRect) ) ; 

/* Save plotting preferences */ 

savep refer = prefer .plotting; 

prefer .plotting = FALSE; /* Force a single redraw */ 

MO__UpdateWindow ( theWind ) ; 
prefer .plotting = savep refer; 

/* And restore prefernces afterwards */ 

SetPort ( savePort ) ; 



! "k ★★★★★★★★★★★★★★★★★★★★★ MO GrowWindow 



y ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 

MO___ForceUpdate : Creates update events for all open orbit windows 

★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★*★★★★★★ k ! 

void 

MO__ForceUpdate ( ) 

{ 

WindowPtr current; 

GrafPtr savePort; 

GetPort (&savePort) ; /* and force redraw of whole screen */ 

current = MO__FirstWindow ( ) ; 
while (current != NIL) 

{ 

SetPort (current) ; 

InvalRect (& (current->portRect ) ) ; 
current = MO__NextWindow (current ) ; 

} 

SetPort (savePort) ; 

} jk kkkkkkkkkkkkkkkkkk kkk ForCeUpdate ******** **************** * */ 
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^ici(i(ici(i(i(i(ici(ici(i(ir'kie'k'k'k'k-k'k-kie'k-k-k-k'k-k'k-kic'k'k-k-k-kie-k-k'k-k'kic'k-kic-k'kic'k'k'k-k-kic'k'kic'k'k’k'k'k'k'kic 

MO_NextWindow : Finds pointer to next orbit window in ordered list 
WindowPtr 

MO_NextWindow (current) 

WindowPtr current; 

{ 

int i; 

i = 0; 

while ( (i < MAXWINDOWS) && (WindowStorage [ i] != current)) 

{ /* Scans list for current window */ 

i = i + 1 ; 

} 

/* Find next non empty slot */ 

if ( (WindowStorage [i] == current) && (i == ( MAXWINDOWS -I) ) ) 

return (NIL) ; /* No match so no program windows left */ 

i = i+1; 

while ((i < MAXWINDOWS) && (WindowStorage [ i ] “ NIL)) 

{ 

i = i + 1 ; 

} 



if (i == MAXWINDOWS) 

return (NIL) ; /* No 

if (WindowStorage [i] == NIL) 
return (NIL) ; /* No 

else 

return (WindowStorage [i] ) ; 

/* The next program window found */ 

J ^ -k 'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'kk'k'k'k'k JwJQ NeXtWindOW ****'***'***'**'*’'***'****'*'**'** * j 



match 


so no program 


windows 


left 


*/ 


match 


so no program 


windows 


left 


*/ 
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* 

★ 


FILENAME 


: MacOrbits. R 


•k 


DESCRIPTION 


resouce source file for MacOrbits. c 


* 


ENVIRONMENT 


Macintosh SE 1Mb 


* 




LightSpeed™ C v2.15 


★ 


AUTHOR 


: Captain Kenneth L. BEUTEL USMC 


★ 


ADVISORS 


Prof. Dan Davis 


★ 




Prof. Dan Boger 


★ 




Naval Postgraduate School, Monterey CA 


k 


VERSION 


: 0.9 (3/6/88) 


k 

ic 


REMARKS 


: Compile this file with RMAKER for use. 


k 

k 


CHANGES 


3/6/88 Formatted for MacWrite conversion 



* The output rsrc filename is: 

MacOrbits pro j . rsrc 

* Include the world map 
INCLUDE World. PICT 

* Include the icon symbols 
INCLUDE MacOrbits Icons 

* Include the nps logo 
INCLUDE NPS Logo 

* Include the Globes w/ meridian lines 
INCLUDE Globes. PICT 

* ★★*★*★***★★*★★*★***★★*★★★* MENU rsrc ID * s **★****★***•*■*★★*****★★★★★★★ 
Type MENU 

, 128 

\14 

About MacOrbits . . . 

(- 

, 129 

File 
New/N 
Open . . . /O 
Close 

(- 

Save/S 
Save As... 

Revert 

(- 

Page Setup... 

Print... 

(- 
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Transfer . . . /T 
Quit/Q 



, 130 

Edit 

Undo/Z 

(- 

Cut/X 

Copy/C 

Paste/V 

Clear 



, 131 
Orbit 

Display as text 
Display Graphically 
(- 

UK Coordinates 
PQW Coordinates 
Geographic Coords 

,132 

Plot 

Timed Plot . . . 

Start Continuous Plot 
(- 

Reset Plot 
(- 

Stop Plotting 

,133 

Windows 

Global Map Background ! \ 12 
(- 

Hide All Orbits 
(- 

(Orbit Window 1 
(Orbit Window 2 
(Orbit Window 3 
(Orbit Window 4 
(Orbit Window 5 

, 134 
Special 

Units of Measurement. . . 
Time Step . . . 

Trace Orbit . . . 

Show Axes ! \12 



******** **★***★*******★★★★ ★ WIND rsrc ID * s 



Type WIND 



, 128 

Standard Orbit Window 
40 20 336 482 
Invisible GoAway 
0 
0 

, 600 

Map Window 
22 2 338 510 
Visible NoGoAway 
2 
0 



**★*★★★*•*★****★*•*★★★★★**★** ALRT rsrc ID ^ s *’^*********************** 
Type ALRT 

,256 

82 133 244 379 

256 

5555 



,257 

100 105 250 405 

257 

5555 



,258 

42 27 310 485 

258 

4444 



★★******★★★**★**★★*★★**★★★★ DLOG rsrc ID ^ s ************************* 



TYPE DLOG 
,512 

NewOrbitID 
45 65 320 451 
Visible NoGoAway 
1 
0 

512 



,513 
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SetUnitsID 
65 75 252 438 
Visible NoGoAway 
1 
0 

513 



,514 

TimeStepID 
65 75 252 442 
Visible NoGoAway 
1 
0 

514 



, 515 

TraceOrbit ID 
72 118 240 420 
Visible NoGoAway 
1 
0 

515 



,516 

SetPlotTimelD 
61 91 209 408 
Visible NoGoAway 
1 
0 

516 

★ ★*★★★★★★★★★★★★★★★★★★★★ DITL rsrc ID * s for DLOGs and ALRTs *★****★★ 
TYPE DITL 

,256 

2 

* 1 

Btnitem Enabled 
128 96 152 152 
OK 

* 2 

StatText Disabled 
17 12 121 236 
'^ 0 ^ 1 ^ 2^3 

,257 

4 
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* 1 

Btnitem Enabled 
67 39 91 125 
Save 

* 2 

Btnitem Enabled 
105 39 129 125 
Discard 

* 3 

Btnitem Enabled 
105 184 129 270 
Cancel 

* 4 

StatText Disabled 

13 68 60 260 

Save changes to '^O ? 

**★★* **★**★ About MacOrbits DITL 
,258 

10 

* 1 

Btnitem Enabled 
200 288 232 376 
OK 

* 2 

Pictitem Disabled 

6 8 242 196 

258 

* 3 

StatText Disabled 
26 244 41 431 

By Capt, K,L. Beutel, USMC 

* 4 

StatText Disabled 

72 224 87 399 

In partial fulfilment of : 

* 5 

StatText Disabled 
96 224 112 432 

M.S. in Computer Science and 

* 6 

StatText Disabled 
120 224 136 432 
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M.S. in Systems Technology at 



* 7 

StatText Disabled 
144 224 160 432 

U.S. Naval Postgraduate School^ 

* 8 

StatText Disabled 
168 224 184 432 
March^ 1988 . 

* 9 

StatText Disabled 
5 191 21 427 

MacOrbits : The Orbital Simulation 

* 10 

StatText Disabled 
240 168 256 440 

(Portions Copyright THINK TECHNOLOGIES) 

***************** NEW ORBIT DITL 
,512 

28 

* 1 OK Button 

Btnitem Enabled 
232 80 256 166 

OK 

* 2 Cancel Button 

Btnitem Enabled 

232 240 256 326 
Cancel 

* 3 (name) 

EditText Enabled 
8 112 24 272 
Untitled 

* 4 (a) 

EditText Enabled 
32 176 48 240 
9378 

* 5 (e) 

EditText Enabled 
56 176 72 240 
0.3 

* 6 
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StatText Disabled 
56 16 72 152 
Eccentricity (e) : 

* 7 

StatText Disabled 
80 16 96 152 
Inclination (i) : 

* 8 

StatText Disabled 
8 16 24 104 
Orbit Name : 

* 9 

StatText Disabled 
32 16 48 152 
SemiMajor Axis (a) : 

* 10 (i) 

EditText Enabled 
80 176 96 240 

45.0 

* 11 

StatText Disabled 
128 16 144 152 
Arg. of Perigee : 

* 12 (arg of perigee) 

EditText Enabled 

128 176 144 240 

30.0 

* 13 

StatText Disabled 

152 16 168 176 

Long, of Ascend. Node : 

* 14 (long of ascending node) 

EditText Enabled 

152 176 168 240 

20.0 

* 15 

StatText Disabled 
176 16 192 176 
Epoch Time (T) : 

* 16 (Epoch Time) 

EditText Enabled 
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176 176 192 240 

10.0 

* 17 

StatText Disabled 
32 256 47 373 
(km) 

* 18 

StatText Disabled 
56 256 72 328 
(0 < e < 1) 

* 19 

StatText Disabled 
80 256 96 346 
(O'" < i < 180"") 

* 20 

StatText Disabled 
128 256 144 336 
0 ^ - 360 ^ 

* 21 

StatText Disabled 
152 256 168 336 
O'" - 360^" 

* 22 

StatText Disabled 
176 256 192 336 
(hours) 

* 23 

StatText Disabled 
200 16 216 104 
Epoch Date : 

* 24 (Epoch date) 

EditText Enabled 

200 112 216 241 
01/01/1988 

* 25 

StatText Disabled 
200 256 216 359 
(mm/dd/yyyy) 

* 26 

StatText Disabled 
104 16 120 152 
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Mean Anomaly (M) ; 



* 27 (Mean Anomaly) 

EditText Enabled 

104 176 120 240 

0.0 

* 28 

StatText Disabled 
104 256 120 336 
0 ^ - 360 ^ 

********* ******** SET UNITS DITL 
,513 

6 

* 1 

Btnitem Enabled 
136 48 160 134 
OK 

* 2 

Btnitem Enabled 
136 216 160 302 
Cancel 

* 3 

radioButton Enabled 
40 152 58 292 
Metric (MKS) 

* 4 

StatText Disabled 
8 54 24 262 

Select a System of Units : 

* 5 

radioButton Enabled 
64 152 82 292 
Canonical 

* 6 

radioButton Disabled 
88 152 106 292 
English (mi . -lbs . -hr . ) 



***************** SET TIME STEP DITL 
,514 
9 

* 1 

Btnitem Enabled 
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144 48 168 134 
OK 

* 2 

Btnitem Enabled 
144 216 168 302 
Cancel 

* 3 

StatText Disabled 

48 24 64 176 

Update position every 

* 4 

StatText Disabled 
16 80 32 288 

Change Plotting Parameters 

* 5 

StatText Disabled 
48 224 64 288 
Minutes 

* 6 

EditText Enabled 
48 192 64 217 
0 

* 7 

StaticText Disabled 

88 24 104 176 

Time Compression Ratio 

* 8 

EditText Enabled 
88 186 104 217 
0 

* 9 

StaticText Disabled 
88 224 104 280 

: 1 



TRACE ORBIT DITL 

, 515 

6 

* 1 

Btnitem Enabled 
127 32 151 118 
OK 
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* 2 

Btnitem Enabled 
127 176 151 262 
Cancel 

* 3 

Iconitem Enabled 
60 50 92 82 

512 

* 4 

Iconitem Enabled 
60 130 92 162 

513 

* 5 

Iconitem Enabled 
60 200 92 232 

514 

* 6 

StatText Disabled 

16 88 32 200 

Trace Orbit Path with 

***************** SELECT PLOT DURATION 
,516 
5 

* 1 

Btnitem Enabled 
96 48 120 134 
OK 

* 2 

Btnitem Enabled 
96 184 120 270 
Cancel 

* 3 

StatText Disabled 
40 24 56 160 
Select Plot Duration 

* 4 

EditText Enabled 
40 176 56 216 
90 

* 5 

StatText Disabled 
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40 232 56 288 
Minutes 



212 



APPENDIX E 



MACORBITS USER'S MANUAL 

INTRODUCTION; MacOrbits is a program for the Apple Macintosh computer that 
simulates the motion of satellites around the Earth. It is designed to be easily used by 
anyone interested in observing various orbital phenomena such as the motion of a satellite 
or the trace that the satellite's path makes as it passes over the Earth's surface. This 
program assumes that the user is familiar with the basic operation of the Macintosh 
computer and the fundamental principles of orbital mechanics. If you are not comfortable 
with either of these topics please consult "Macintosh", your owner's manual, or a suitable 
physics text that describes basic orbit parameters (i.e., semimajor axis, eccentricity, 
inclination, argument of perigee, longitude of ascending node and epoch time). The thesis 
that accompanies this program is another source of information about satellite orbits. 
MacOrbits supplies several default values that may be modified later but (if left unchanged) 
will help you get started if you are still not entirely comfortable with these topics. 

BACKGROUND: This program was written as partial completion of the requirements 
for a Master's Thesis at the United States Naval Postgraduate School by Captain Kenneth 
L. Beutel, USMC. This thesis and program are the property of the United States 
Government. These documents are unclassified, with no limitations on distribution. It is 
requested that this or similar notices be provided with all copies of this program and 
associated documentation. 
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ORGANIZATION: The remainder of this user's manual is composed of a short "get 
acquainted" section and a reference section. The reference is organized according to the 
commands that are available via program menus. Menus are composed of several related 
items that act either globally or in the context of the current, topmost window. Dashed 
lines are used to group menu items that do similar functions. Many menu items will 
execute an action simply by selecting them. Other menu items, suffixed by ellipses (...), 
require more information from the user before they can be successfully executed. 



GETTING STARTED: To start using MacOrbits the Macintosh must be turned on and 
the Finder's desktop visible on the computer screen. Insert the disk containing the 
program MacOrbits and its associated files. In a few seconds an application icon will 
appear bearing the name "MacOrbits". Load the program either by "double clicking" the 
icon or selecting the icon and then choosing "Open" from the File menu. The application 
will start loading and in a few seconds present a blank screen with a new menu bar. 

Unless you are already familiar with orbital parameters and would like to define your own 
orbit, choose "Open" from the File Menu. (If you are familiar with these concepts and 
want to stari making your own orbits immediately, you can skip to the section on Menu 
Commands.) When the standard file dialog appears, select the name "Demo Orbit" from 
the file list. After choosing the file and pressing the "Open" button a new window will 
appear. This window is also named "Demo Orbit" and contains a short list of the orbit 
parameters that have been defined for this orbit and a globe representing the Eanh. 
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To make the satellite move around the Eanh choose "Plot Continuously" from the "Plot" 
menu and watch the screen. The satellite's position is designated by a black dot in the 
window. Notice that this black dot and the globe are both updated on a regular basis. To 
change the rate of this update select the "Time Step..." menu item from the "Special" 
menu. This dialog will allow you to change the rate at which wall clock time is 
compressed in the simulation’s time system as w’ell as change how frequently new 
positions are calculated for the satellite. You may experiment with both of these values 
later, but for now simply double the time compression rate and select the "OK" button. 
Now the updates are appearing twice as fast in the window. 

Notice that you were able to make this change without causing the program to stop plotting 
or having to do any other special actions. This is because MacOrbits is designed to be as 
modeless as possible. Except when using dialog boxes, this program allows you to do 
any action that is legal whenever you want. If a menu item is inactive or dimmed then it is 
not appropriate to invoke that particular action in the current context. Opening a file, using 
a desk accessory, or selecting an orbit will activate these menu items as needed and allow 
you to use them. 
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Compatibility Notes: This program has been tested for compatibility with all 

Macintosh computers from the Macintosh 512KE to the Macintosh II. There is no reason 
that this program should not run on machines that still have the old 64K (MFS) ROMs or 
128K of RAM. Out of memory conditions may develop when using these older machines 
(or with computers running Switcher™ or MultiFinder™). The most frequent cause of 
out of memory problems is having too many windows open or using the global map 
background. Notes are provided in this manual on how to miniiriz'' the amount of 
memory that MacOrbits requires if these problems occur. 
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REFERENCE: MacOrbits has six menus that contain the following menu items: 





6 


1 

i 

i 


E 


in 



Hbout MacOrbits. 

Chooser 
Control Panel 
Scrapbook 



Orbit 



Display as tent 
s/Display Graphically 

^/IJK Coordinates 
PQIO Coordinates 
Geographic Coords 



Nem 


§§N 


Open... 

Close 


^0 


Saue Rs... 

Oooert 




Page Setup 
Print... 


• • • 


Transfer... 


§€T 


Quit 





Undo 


3€Z 


Cut 




Copy 




Paste 


§€U 


Clear 





Plot 



Timed Plot... 

Start Continuous Plot 

Reset Plot 

Stop 



LUindoius 



Global Map Background 



Hide Rll Orbits 

Sample Orbit 

Orbit 2 

Orbit iUmtimn} '5 
Orbit UHntiow 4 
Orbit lIJibdbtb 5 



Special 



Units of Measurement... 
Time Step... 

Trace Orbit... 
s/Shom fines 
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ll MENU: The Apple Menu contains the currently installed desk accessories and an 
"About MacOrbits..." item that describes the authorship and purpose of this application. 

File MENU: This menu contains the standard Macintosh user interface menu items that 
allow the user to perform file handling functions, printing functions, and leave the 
MacOrbits program. Once an orbit file is opened (or created) an orbit window will be 
»,hsj,iayed with the same title as the file name (or the same title as the new orbit name). 
MacOrbits will allow up to five orbits to be active at any given time. The "New" menu 
item creates new orbits by presenting the user with the following dialog box: 



Orbit Nanie : [jnSIEB 






SemiMajor Rnis (a) : 


9378 


(km) 1 


Eccentricity (e) : 


0.3 


(0 < e < 1) 


Inclination (i) : 


45.0 


(0^ < i < 180^) 


Mean Rnomaly (M) : 


0.0 


0^ - 360^ 


Hrg. of Perigee : 


30.0 


0^ - 360^ 


Long, of Rscend. Node : 


20.0 


0^ - 360^ 


Epoch Time (T) : 


10.0 


(hours) 


Epoch Date : 01/01/1988 


(mm/dd/yyyy) 



OK 



Cancel 
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The dialog provides a complete set of valid defaults if you are uncertain as to what values 
to enter to create a working orbit. 

The "Open" menu item allows the user to select MacOrbit documents that contain 
previously written orbit records, organized one per file. The "Close" menu item gives the 
user the opportunity to save any new orbit data, then closes the file associated with the 
topmost orbit window, and removes the window and all references to it from the cunrent 
program. This is not the same as clicking the close box in the window that merely hides 
the window from view. 

The next collection of menu items, "Save", "Save as...", and "Revert" only affect the orbit 
window that is currently on top of the other orbit windows. The user may explicitly save 
the topmost orbit at any time by choosing the "Save as..." menu item. "Save" and 
"Revert" are only active when an existing orbit window has been changed. They allow the 
user to save changes to disk and return the window to the last saved state of the orbit, 
respectively. 

The "Page Setup" menu item provides the standard Macintosh printer set up routine and 
allows MacOrbits to support several different printers. The "Print" menu item prints out 
the values associated with the topmost orbit window. 
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The user has two methods for leaving the MacOrbits application. The "Quit" menu item 
first ensures that all files have been saved, then exits the program MacOrbits, and returns 
to the desktop. The "Transfer..." function is similar, except that the user can leave the 
application and immediately start another application without having to go to the desktop 
first. 

Edit MENU: This menu is not used by the MacOrbits program but is provided for 
compatibility purposes with desk accessories that require the capability to cut and paste 
data. The items located in this menu are only active when a desk accessory is the top 
window on the screen. 

Orbit MENU: This menu is only active when at least one orbit window is opened and 
visible on the desktop. The Orbit Menu controls the appearance of the topmost orbit 
window by allowing the user to toggle between a text only view of the orbit and one of 
three graphical representations of the orbit. 
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The three possible graphic views are: 





UK Coordinates PQW Coordinates 






























O 


o 


Jtl 




*•! 


\ 






1 


« 1 






\ 


1 


j, 




1 i 


...vl 


















\ ♦ 



Geographic Coordinates 



A check mark located in front of a menu item denotes the current active selection. 
Changing to a new view of the orbit is accomplished by selecting an unmarked item from 
this menu and then releasing the menu bar. If the selection is made with the "Display 
Graphically" item check marked, the windows contents will be updated immediately. 
Otherwise, the selected change will be delayed until the orbit window leaves the "Display 
as Text" mode. 



221 



MacOrbits User's Manual 



Plot MENU: This menu initiates and terminates the updating of the satellite's orbital 
position for ail open (but not necessarily visible) windows. The user has the option of 
selecting a continuous plot or plotting for a user-definable interval. Once the program 
begins plotting the "Stop Plotting" menu item will become active. The user can select this 
menu item to terminate a plot that was started by either plot option. To reset the orbital 
parameters to their initial values selct the "Rest Plot" menu item. The rate at which the 
plotting of the next posit’or will take place is controlled via the "Time Step..." menu item 
located in the Special Menu. 



The plotting mechanism is based on the amount of time elapsed from epoch. Therefore all 
orbits are each updated once per plot interval. If the "Timed Plot..." time duration expires 
during that time interval, MacOrbits will beep and reset the menu bar. The "Timed Plot..." 
menu item uses the following dialog box to determine the duration of the plot from the 
user: 



Select Plot Duration 



Minutes 




Cancel 
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To plot a single orbit for one active orbit windows: select the desired window, change the 
view to "Display as Text" via the Orbit Menu, read the time value associated with the 
period from the data chart, change to the desired plotting view, select the "Timed Plot..." 
menu item, and set the plot duration to the period of the satellite. The program will then 
plot the orbit at selected intervals for one complete revolution. 

Windows MENU: This menu manages the display of data on the screen. The default 
desktop for the program is a gray background. This is changeable to a world map that 
plots the satellites ground position via the "Global Map Background" menu item. (This 
map consumes about 28K of memory and should not be used under conditions where 
available memory is at a premium.) 

The background window contains a world map with political boundaries that looks like: 




223 



MacOrbits User's Manual 



The "Hide All Orbits" menu item will remove all orbit windows from the user's view. 
The orbits associated with each window are not closed but still active and under the control 
of MacOrbits. This menu item controls the removal of any orbit window that might 
obscure the view of the global map background. 

The remaining menu items have the default name of "Orbit Window #" (where # is a 
number from 1 to 5) and are initially deactivated. One of these five positions will be 
occupied with the orbit's name when the orbit is created or opened. If a menu item 
containing the name of an active orbit is selected that orbit's window will be made visible 
(if it is hidden) and then brought on top of all other visible windows. This allows the user 
full control over the contents of the display as well as the ability to quickly bring a window 
from the back of the desktop to the front. 
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Special MENU: This menu manages changes to the MacOrbits program that are global 
in scope (i.e., these changes affect ^ open windows. MacOrbits defaults to metric units 
(kilometers and seconds) when the program is initially loaded. The "Units of 
Measurement..." menu item provides a dialog for changing this system of units: 



Select a System of Units: 

(S) Metric (MKS) 

O Canonical 

o TlK.-hi 





OK 




( Cancel 











The user may select a new system of units from the choices listed by selecting the button 
in front of the name of the measurement system. (The third choice is deactivated because 
English units are not currendy supported.) 
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The "Time Step..." menu item controls the rate of time compression (measured versus 
wall clock time) and the interval between plot points by the dialog: 



Change Plotting Parameters 



Update position euery 



5| Minutes 



Time Compression 



200 : 1 







> S’ 

OK 




r -i 

Cancel 

j 





To change the default values select the appropriate edit text box and type in a new value. 
Pressing the tab key will highlight the contents of each box seque.itially and allows easy 
selection of a value that the user may wish to type over. 

The "Trace Orbit..." menu selection gives the user the option of selecting one of three 
different methods for drawing the data points at each plot interval. This dialog contains 
three icons that represent the choice of single points, connecting lines, or both tracing 
methods combined. 
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This sample dialog shows the heavy box that indicates the current plot tracing method: 



Trace Orbit Path 




< 3 > < 3 > 









f ^ 




OK 




Cancel 








^ 



The last menu item, "Show Axes", toggles the display of coordinate axes in all program 
windows. This option is represented by a check mark found in front of the menu item and 
initially defaults to active. 
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c.l A standard library for 

modeling satellite orbits 
on a microcomputer. 




